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MA M'DOVAI 
SE IU COMPUTAR. 

NON ce U HAI f> 


AMICO, AVER.Ei-- 

IU COHPUTE-RSIONU 

BA5TA 1-—- 
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Home computer... 
...non è mai 
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Vie 20/ COMMODORE 64 


Come ottenere i simboli contenuti 
nei listati: 


Simbolo Tasti Simbolo Tasti 


e 

a e 


Q 

<* R 

a 

a m 


□B 

Ol 0 

□ 

ai d 


a 

Or F 

C3 

Oi c 


D 

a v 

S 

a b 


■ 

<* ♦ 

• • 

• • 

• 4 •»• 

<* t 



Or Y 

#••• 

<* u 



CK 1 

• • • • 

<x o 


• 

<* P 

• • • 4 

<* 9 


ED 

a h 

r ; 

a 6 


li 

Vi 

a j 


1; 

Or K 

11 

<» L 


U 

(* N 

il 

a m 


a • 

a i 

ED 

<* s 


a 

<X X 

CB 

a 

» A 

Or » 


C9 

. , 

CJ 

SHIFT L 


LJ 

SHIFT 9 

o 

8H1FT 0 


n 

SHIFT P 

ED 

SHIFT I 


a 

SHIFT U 

D 

SHIFT K 


a 

SHIFT J 

D 

SHIFT M 


■ 

SHIFT O 

e 

SHIFT ♦ 


B 

SHIFT V 

s 

SHIFT H 


0 

SHIFT N 

♦ 

SHIFT Z 


V 

SHIFT S 

♦ 

SHIFT X 


♦ 

SHIFT A 

n 

SHIFT E 


• • 

SHIFT D 

s 

SHIFT t 


% 1 - * 

SHIFT C 

r**i 

SHIFT F 


• 

A _• 

SHIFT R 

Ci 

SHIFT T 


ÌIJ 

SHIFT G 

m 

SHIFT B 

• 

Ili 

SHIFT - 
SHIFT Y 

il 

E 

SHIFT H 
SHIFT £ 


CJ 

* 

*y 

UP ARROW 

PI 


* 

LEFT ARROW 


Maiuscolo 


Simbolo Tasto 

□ 

CLR 


ts 

HOliE 


tt? 

cursor 

down 

□ 

cursor 

up 

B 

cursor 

r ì ght 

■1 

cursor 

le-ft 


etri 

1 

[3 

etri 

2 

a 

etri 

3 


etri 

4 

* 

etri 

5 

Ci 

ct^l 

6 

K 

etri 

7 

Si 

etri 

8 

L£* 

• etri 

9 

- 

etri 

• 

o 


Minuscolo 
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Sfruttando la proprietà del VIC-20 di indirizzare ogni 
singolo carattere sullo schermo utilizzando la seguen¬ 
te formula: 

POKE T + B*44 + A*2, (CARATTERE) 

riusciamo con le coordinate introdotte (B,A) a calcola¬ 
re l’esatta posizione della casella sullo schermo. Il 
gioco è semplice e progettato per la configurazione 
base. L’accorgimento dell’uso delle matrici intere 
(A%, B%, C%, X%), ha consentito un notevole ri¬ 
sparmio di memoria. 

REMARK 

0 Dimensionamento delle quattro matrici di controllo 
A%, B%, C%, X% 

1-6 Presentazione 

% 

10-83 Posizionamento navi 




84-180 Controllo gioco utente 
190-240 Controllo gioco VIC-20 
600-605 Blocco vincite utente 
700-703 Blocco vincite VIC-20 
705-750 Richiesta di visualizzazione 
navi non colpite 

SOBROUTINE 

1000 Disegno schema battaglia 

2000 Decodifica delle coordinate 

5000 Effetti sonori 

6000 Effetti sonori 

7000 Effetti sonori 

8000 Effetti sonori 


READY 



il 


il 


0 DI ri U X (. 9 , 8 > , E X (. 9,8 >, C '/. < 9,8 >, X < 9,8 ) 

1 PRI NT " ITT : P0KE36879,110: T=7727 : PRI NT " Mmmm S 

2 PRINT" 3 VIC 28 PRESENTE: " : PRINT" 3 

3 P0KE36877 , 1 80 : FORL= 1T06 : D= I NT < RND < 1 > *5 > *50+50 : 

FORMATO 15 : P0KE36878, M : F0RN*1T0D 
: NEXT 

4 NEXT : FORM* 15T03STEP-1 : P0KE36878, M : FORN= 1TOD = NEXT •' NEXT : NEXT : P0KE36877,0 

5 PRINT"IliMiMtì 3 " : PRINT" 3 NAVV EATTLE " : PRINT" 3 


II 


6 f. 
10 
12 
15 
18 

19 

20 
30 
40 
45 

50 

51 

CT '"i 

60 

65 


GI OC ARE " : I NF'UT " J»»l" ; C : GOSUB1 QQ2 


50SUB5000 

PRINT"MWM CON QUANTE NAVI VUOI» 

FORI=1TOC 

PRINT"IZIONA LA NAVE"; I : IMPUTA* 
B$=LEFT$<A$,1> =D*VALERIGHT*<A*,1>> 

D=D-1 

GOSUB2000 

\jy. (. d , a > * i 

BX=RND<1)*3 : AX=RND(1>*7 
IFBX < BX,AX >=1THEN40 
B’.’(E‘.’,A;;> = 1 
NEXT 

FORI=0TO9 : FOR,T=0TO8 
IFUX < I, J > * 1THENPOKET+1 *44+< .J*2 >,81 
NEXT : NEXT 
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80 GOSUB1000 

81 FORI =0109:FQRJ=0TO8 : IFCXCI, J> = 1THENP0KET+I*44+,T*2,86 

82 IFCX<1, J) =2THENF'0KET +1#44+J*2,102 

83 NEXT : NEXT 

84 IHPIJT"W DOVE SPfìRI";R$:B=VAL<RIGHT$<fì$, 1 )) :B=B-1 

85 B$=LEFT* 1>:GOSUB2900 

90 CX <B,fi > = 1:1FBXCB,fi)01THENPOKET+B#44+fi#2,86 :GOSUB6000: GOTO150 

100 POKET+B#44+fi#2 > 102 :Z=Z+1:BXCB,fl>=0:IFZ=CTHEN600 

101 CX <B,fi > =2 :GOSUB5000: GOTO160 
150 FQRLGV=1TO2000 : NEXT 

160 GOSUB1000 

170 FORI=0TO9:FORJ=0TO8: IFOX <I,J ) = 1THENPOKET+1#44+J#2,81 

175 IFXX<1,J>*1THENPOKET+1#44+J#2,46 

176 IFUXCI,J>=2THENP0KET+I#44+J#2 > 91 
180 NEXT:NEXT 

190 fiX=RNB < 1 ) #9 : BX-RNB < 1 > #8 : F=*X+ 1 

195 IFXXCfiX,BX> = 1THEN190 

200 S$=MID$<"fiBCDEFGH",F,1): XX < RX,BX) = 1 

210 PRINT"M IO CHIfino ";S$;fiX+l 

220 IFUX(fiX > BX> = 1THENPOKET+fiX#44+BX#2,91 :UXCfìX,BX>=2 : G0T0235 


225 P0KET+fìX*44+BX*2,46 :GOSUB6000 
230 FORK=0TO3000:NEXT:GOTO240 
235 GOSUB5000:V=V+1:1FV=CTHEN70O 
240 GOTO80 

600 a 

601 PRINT" a BRAVO !!!!!!":PRINT" 

602 PRINT" a 

603 GOSUB8000 
605 END 

700 PRINT"□WMWWMWa 


a HAI VINTO TU 


II 


il 


II 


# 

+ 















































UN SISTEMA ESPANDIBILE 

Per tutta una varietà di situazioni 



concessionaria 
per l'Italia 


MELCMONI 

_ J 



Comodi O 


Le funzioni dello SC-3000 possono ve¬ 
nire notevolmente potenziate colle¬ 
gandolo a una grande varietà di perife¬ 
riche, disponibili. 

Vi aprirete cosi la via a una serie di uti¬ 
li e interessanti applicazioni pratiche. 
Non occorre un monitor TV speciale: 
basta un normale televisore, ma si può 
ugualmente collegare il computer a un 
monitor professionale. Si possono ag¬ 
giungere stampanti, comandi a leva, 
memorie esterne, anche a dischi, per 
soddisfare in pratica a qualsiasi esi¬ 
genza. 



SC-3000: CARATTERISTICHE SC-3000: IL BASIC 


Caratteri 

Alfabetici (maiuscole e minuscole), numerici, simboli, 
katakana, semigrafici 

Costanti 

Decimali 9,9999999999 - 99 

9,9999999999 + 99 

Esadecimali &H8000 &H3FFF 

Operazioni 

matematiche 

Aritmetiche, comparative, logiche, funzioni varie, 

11 cifre 

Numerazione 

righe 

Da 1 a 65.535 righe 

Comandi 

LIST, LLIST, SAVE, VERIFY, LOAD, RUN, CONT, 
NEW, DELETE, AUTO, RENUM 

Istruzioni 

REM,* STOP, END, LET, PRINT, LPRINT, INPUT, 

READ, DATA, RESTORE, DIM, ERASE, DEF FN, 
GOTO, GOSUB, RETURN, ON-GOTO, 
ON-GOSUB, FOR-TO-STEP-, NEXT, 

IF-THEN, CONSOLE, CLS, SCREEN, COLOR, 
PATTERN, CURSOR, POSITION, PSET, PRESET, 

LINE, BLINE, CIRCLE, BCIRCLE, PAINT, SPRITE, 

MAG, SOUND, BEEP, HCOPY, CALL, POKE, OUT, 
VPOKE, MOTOR 

Funzioni 

ABS, RND, SIN, COS, TAN, ASN, ACS, ATN, IGT, 
LOG, LTW, EXP. RAD, DEG, PI, SQR, INT, SGN, 

ASC, LEN, VAL, CHR$, HEX$, INKEY$, LEFT$, 
RIGHT$, MID$, STRS, TIMES, PEEK, INP, FRE, SPC, 
TAB, STICK, STRIG, VPEEK 

Funzioni di 
controllo 

Agendo sul tasto control (control key) si effettua il 
controllo del programma 


CPU 

Z-80A (4MHz) 

Memoria 

ROM 

RAM 

8 48K bytes 

18 32K byte V-RAM da 16K byte per 

uso grafico 

Capacità 

Configu¬ 

razione 

Video 

Colori : 16 colori (210 colori con 

sovrapposizione) 

Caratteri : a punti 8x8 

Tastiera 

64 tasti 

Tastiera ASCII 

48 tasti funzione, tasto controllo, 4 tasti cursore, 
tasto cambio canali 

Funzioni di 
impaginazione 

4 tasti cursore indipendente. 

Tasto home-clear, insert-erase 

Interfacce 

CRT (RF e video), audio, FNS 1200 baud, 
stampante, comandi a leva 

Audio 

Può essere collegato a altoparlanti esterni 

Temporizzatore 

Incorporato 

Espansioni 

previste 

5 alloggiamenti per altrettante schede - 
Accoppiatore acustico da 300 baud - Minidischi floppy 

Alimentazione/ 

consumo 

9V c.c. 7W - alimentatore per collegamento alla rete 

Dimensioni 

353(1) x 210(P) x 46(A) mm 

Peso 

1,1 Kg. 























































COMMODORE VIC - 20 



}M «tMtf 

Ili ••♦•••• 






II 


I I I I I I I I " 
H—I—I—I " 


j " 


701 FRINT" VIC IL COMPUTER " : FRINT : FRINT" Hfì VINTO 

702 FRINT"MS 

703 GO3UE7000 

705 PRINT"Miffv'UOI VEDERE DOVE SONO" : INPUT" LE MIE NAVI ";fì$ 

708 IFR$="NO"THENEND 
710 GOSUB1000 
720 FORI=0TO9:FORJ=0TO8 
730 IFBX< I, J ) = 1THENPOKET+1*44+*#2.102 
740 NEXT = NEXT: END 
750 END 

1000 FRI NT" IT' ; 

1010 PRINT" IR IB IC ID IE IF IG IH I " 

1020 PRINT" -4- + I-- I I - I - I I I" 

1030 F0RI-1T09 
1040 PRINTSTR$<I>;" I 
1050 IFI=9THEN1080 
1060 PRINT" -+ - f- I I I 
1070 NEXT 

1080 PRINT" — 1 1 ' ‘ 

1090 RETURN 
2000 I FBf = " Fi " THENfi=0 
2100 IFB$="B"THENR=1 
2200 I FB$="C"THENfi=2 
2300 IFB$="D"THENR=3 
2400 IFBf="E"THENfì=4 
2500 IFBf="F"THENR=5 
2600 IFB$="G"THENR=6 
2700 IFB$="H"THENR=7 
2750 RETURN 
5000 P0KE36878.10 
5010 FORL=230TO128STEP-1 
5020 P0KE36876.L 
5030 FORM*1TO20 : NEXTM:NEXTL 
5040 P0KE36876,0 :P0KE36877,200 
5050 FORL=15TO0STEP-0.02 
5060 P0KE36878.L:NEXTL 
5070 P0KE36877 >0 
5100 RETURN 
6000 P0KE36878.15 
6010 P0KE36877.238 
6020 FORL=15TO0STEP- 
6030 P0KE36878.L 
6040 FORM*1TO70 = NEXT 
6050 NEXT 

6060 P0KE36878,0 :P0KE36877,0 
6100 RETURN 

7000 P0KE36878,15 = FORL=1TO40:FORM=220-LTO160-LSTEP-4:P0KE36876.M:NEXT 
7010 FORM*160-LTO220-LSTEP4 : P0KE36876 , M:NEXT : NEXT: 

FORM*1TO800:NEXT:P0KE36876,0 
7100 RETURN 

8000 P0KE36878.15:FORL*1TO15 : FORM*180TO220+L*2 
:P0KE36876.M:NEXT:NEXT:P0KE36876.0 
8100 RETURN 
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I sistemi lineari ricorrono molto spesso nei problemi di 
fisica e di matematica. Questo programma li risolve 
• con il metodo di Cramer contemplando tutti i casi par¬ 
ticolari che si possono presentare. 



READY. 




1 FRINT "n" 
10 PRIN" 


20 PRINT" 



• 


RISOLUZIONE DI UN SISTEMA DI" 
PRIMO GRADO IN DUE INCOGNITE" 
PRINT" CON IL METODO DI CRAMER " 

PR I NT 

IL SISTEMA DEVE AVERE LA FORMA:" 






30 PRINT" 
35 PRINT 
40 PRINT" 
50 PRINT" 
55 PRINT 
57 CLR 
60 INPUT" 
70 INPUT" 
80 INPUT" 
30 INPUT" 
100 INPUT" 
110 INPUT" 


AX+BY=C 

DX+EV=F 


II 

II 


INTRODUCI A";A 
INTRODUCI B";B 
INTRODUCI C";C 
INTRODUCI D";D 
INTRODUCI E";E 
INTRODUCI F";F 





115 PRINT 

120 G=A#E-D*B: REM DETERMINANTE COEFF. 
130 GX=E#C-B#F: REM DETERMINANTE X 
140 GY=A*F-D*C : REM DETERMINANTE V 
150 IF G=0 AND GX=0 AND GY=0 THEN 
160 IF G=0 THEN 250 

:V=GY/G 

LE SOLUZIONI SONO:" 


!0 



x= " ; x 
v=" ; v 




170 X=GX/G 
180 PRINT" 

185 PRINT 
190 PRINT" 

200 PRINT" 

210 END 

220 PRINT" IL SISTEMA E y INDETERMINATO" 
230 PRINT" AMMETTE INFINITE SOLUZIONI" 
240 END 

250 PRINT" IL SISTEMA E' ASSURDO" 

255 PRINT 
260 GOTO 57 






READY. 
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Il gioco si divide in due programmi. 

Il primo è unicamente per la presentazione. 
Il secondo è il vero e proprio gioco. 


Listato 1 

10/901 presentazione del gioco 

1000/1010 accorgimenti per il corretto uso del programma 

1020 linea di autolancio per il secondo programma 



Attenzione 

Procedura: 

Battere e salvare su cassetta il primo programma, 
quindi dopo il necessario NEW digitare il secondo e 
salvarlo a sua volta. 

Questo metodo si è reso necessario per adottare tale 
programma alla memoria della configurazione base del 
VIC. 

Caratteristica del gioco è che il primo programma lan¬ 
cia automaticamente il secondo. 


Listato 2 

1/2 predisposizione schermo 
12 assegnazione coefficienti per le vincite (settore Y) 

15 Introduzione numero di partite iniziali 
55/107 generazione e controllo delle carte estratte 
125/190 blocco per il cambio delle carte 
200/500 blocco decodifica del punteggio realizzato 
1000 subroutine stampa carta 

2100 sottoprogramma per l’assegnazione delle carte maggiori di 
9 e dei semi 

5000 sottoprogramma per la sonorizzazione in caso di vincita o 
perdita 

6000 sottoprogramma caricamento partite 
7000 sottoprogramma calcolo vincite 
9000 sottoprogramma per la cancellazione carta 
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REfìDV. 


GIOCARE AL 
PARTITE DA 


POKER"J 
TE SCELTO" 


1© P0KE36879,8 :PRINT" an" 

20 PRINT"QUESTO PROGRAMMA CONSENTE DI 

30 PRINT " INSERENDO IL NUMERO DI 

: PR I NT " SlSlSlWSlSlSMSlSlSttM 
M" 

31 PRINT"PREMI UN TASTO" 

33 qeTR$ : IFR$= n 11 THEN33 

35 PR I NT " □" : PR I NT " Pillili COMAND I " : PR I NT " MMM" 

40 PRI NT'"3*B>... CARICA PARTITE»" 

50 PRINT" ... INIZIO PARTITA]!]" 

60 PRI NT "SI®. .. CAMBIO CARTE»" 

70 PRINT"I TASTI 1,2,3,4,5 PER CAMBIARE CARTE" 

90 PRINT"NKMBUONA FORTUNA!" 

900 PRI NT "WS] PREMI UN TASTO" 

901 GET A$ : IF A$=""THEN901 
1000 PRINT"□ATTENDERE PREGO" 

1010 PRINT"CONTROLLA CHE IL TASTOPLAV DEL REGISTRATORE SIA PREMUTO" 
1020 PRINT"i" : P0KE631,131 : PQKE198,1 


READY 


READY 


1 PRINT" □" :P=36876 

2 POKEP+3,58 

12 V<1>=100:V<2> =50:Y<3>=25:Y<4>=10:Y<5>=5:Y<6>=3:Y<7>=2 : Y<3>=1 
15 PRINT"□” : PRINT"MMMS] QUANTE PARTITE" : INPUT"» CARICHI";!-] 

20 R=0:GOSUB6000 
50 PRINT'TJ" 

55 FORI=0TO4 

56 AJi=RND < 1 > *9+6 : A$=R IGHT $ < STR$ < A ’/. >, 1 > 

60 BX=RND< 1 >*4+1 

70 GQSUB21O0 

105 FORM=0TO4 

106 I FA$=CI : < M, 1 > ANDBf=C$ < M, 2 > THEN56 

107 NEXT : C$<1,1>=A$:C$<1,2>=B$:GOSUB1000 :NEXT 
125 A=0 

130 GETZf:PO=RND <1>: IFZ$=""THEN130 

134 IFZ$=CHR$<94 > ANDA=0THEN200 

135 IFZ$=CHR$ < 94 > THEN146 

140 IFVAL< Z$><1ORVAL < Z %> >5THEN130 

145 G<A>=VAL<Zf>-l=A=A+1 : GOSUB9000: GOTO130 

146 FORK=0TOA-1=I=GCK> 

150 AX=RNDC1> *9+6 :BX=RND<1> *4+1 :A$=RIGHT$ C STR$ <AX >,1>:G0SUB2100 

160 FORM=0TO4: IF A$=C t < M,1>ANDB*=C$<M,2 >THEN150 

170 NEXT 

180 GOSUB1000 

185 C$<I,1>=A$:C$<I,2>=B$ 

190 NEXT 

200 C=0 : F0RH=1T04 

210 IFC$ < 0,2 > =C$ <H,2 >THENC=C+1 


ii 
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COMMODORE VIC - 20 


220 

240 

250 



j.j 


9 



60 


270 

280 

290 


300 

310 

320 

330 

340 

350 


. "i. J. J 

360 

365 

400 

408 

410 

420 

430 

435 

440 

460 

470 

475 

476 
480 
490 
500 

: Cl = 


NEXT 

FORH-0TO4 

IFC$ <H,1> = "J"THENV< H )=11 :GOTO270 
IFC$< H,1)=" Q"THENV< H > = 12 :GOTO270 
IFC$ < H,1> = "K" THENV < H > = 13 *• GOTO270 
IFC$<H,1)="fì"THENV<H)=14 : GOTO270 
V < H > = VRL 1 ) > 

NEXT 

FORH=0TO3 = FORQ=H+1T04 
IFV < H > <V(Q)THEN300 
K=V<H> : V<H) =V (. 9 .> : V(Q) =K 
NEXT = NEXT 

IFV < 4 > *14RNDV(3 >=9THENV< 4)=5 :G0T0289 
IFV<1>-V< 0)01THEN400 
IFV(2)-V <1)01THEN400 
IFV< 3>-V <2)01THEN400 
I FV ( 4 > -V < 3)01 THEN400 
S = 1 

IFS=1RNDC=4THENGOSUB5000:G=V<1>:GOSUB7000:GGTO500 
IFS=1THENGOSUB5000:G=V(5>:GOSUB7600 : GOTO500 
IFC=4THENGOSUB5000:G=V<3)= GOSUB7000 : GOTO500 
CT=0:C1=0 

FORH=0TO3:FORQ=H+1T04 

IFV(H > =V(Q)THENCT=CT+1 :K=Q 

NEXT 

IFCT=2THENT=1:V<K)=0 : G0T0479 
IFCT=1THENC1=C1+1 

IFCT=3THENGOSUB5000:G=V < 2 >:GOSUB7000:GOTO500 
CT=0 = NEXT 

IFT=1RNDC1 = 1THENGO3UB5000 = G=V<4):GOSUB7000:GOTO500 
IFT=1THENGOSUB5000 : G=V(6> : GO3UB7000:GOTO500 
IFC1 = 1RNDV < 4 > = 14RNBV<3> = 14THENGOSUB5000:G=V < 8> =GO3UB7000 
IFC1=2THENGOSUE5000:G=V<7>:GOSUB7000 

FORB=0TO5000 : NEXT : FORI =0TO4 = C$ <1,1 > = " " : C$ < 1,2 > = " " •' NEXT : T 
0 : 3=0 :K= 0 : C 1=0 
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: GOTO20 

1000 PRI NT "Si"; : J=I 

1001 IFI =4THENJ= 1.5 = PRI NT " SWWMBWMtMT 

1003 PR INTSPC (. J*5 > " ,-, " : X$=LEFT$ < B$, 1 > : V$=R I GHTf < B $, 1 > 

1005 I FR$= "10" THEHPRI NTSPC < ,T#5 > " I " ; X$ ; R$ ; V$ ; " I " : GOTO 1020 
1010 PRINTSPC <J*5>" I "; X$ ;fì$;V$;" l " 

1020 PRINTSPC <J*5 >" I I" 

1021 PRINTSPCCJ#5>" I I" 

1030 PRINTSPC <J*5>"I "; B $;" I " 

1040 PR I NTSPC I I" 

1041 PRINTSPC<J#5>" I I" 

1045 I FR$=" 10 " THENPRI NTSPC < J*5 > " I "X$ ; fì$ ; V$ ; " I " *• GOTO 1060 

1050 PR i ntspc < ,t*5 > " 1 " ; x$ ; m ; v$ ; " 1 " 

1060 PR I NTSPC < J*5 > " ••-" 

1070 PRINTSPC<j#5>;" ";l+l 
2000 RETURN 

2100 I FRX= 11 THENfif = " J " 

2120 I FRX=12THENR$="Q" 

21301 FfìX= 13THENfì$= " K " 

2140 IFR‘i= 14THENfì$= " fì " 

2150 ifr;:= 10 Thenr$= m i 0 " 

2160 BX=RNB<1 >*4+1 
2170 IFBX=lTHENB*="rs*3" 

2130 IFBX=2THENB$="r*#3" 

2190 I FBX=3THENB$= " 1*3" 

2200 IFBX=4THENB$="i*3" 

2300 RETURN 

5000 : IFJO1.5THENPRI NT " mmmsmm 3 * WINNER * " :QOTO5006 

5005 PRI NT "SI 3 * WINNER * " 

5006 POKEP+2,15 :FORU=20@TO0STEP-5: POKER JJ :FORT=0TO93:NEXT:POKEP,0 :NEXT 
5010 RETURN 

6000 PRI NT'73" 

6001 PRI NT 

6010 PRINT" POKER 

6011 PRINT" FULL 
6020 PRINT" SCfìLR 


"JV<1>#R 
";Y<3>#R 


TRIS 


";V<6>*R 


COPRIR D'RSSI";V<8>#R 
" ; R 



- MENU x ":PRINT"SW SCfìLR PERLE 

";V<2>*R:PRINT" COLORE 
" ; V < 4 > *R 

V<5)#R ; PRINT" 

6030 PR I NT " DOPPIR COPPIR " ; V C 7 ) *R : PR I NT " 

6035 PR I NT " SMSWGfìflES !■■■■!", LJ . " SET 

6037 GETZf: IFZ$=""THEN6037 

6038 IFZ$=CHR$ (64 > THEN6050 

6039 I FZ$<> " * " RNDZTOCHRf < 64 > THEN6037 

6040 IFZ$="*"THENR=R+1 :P0KE36878,15 :P0KE36876,150+R#3 : FORTT=0TO90:NEXT 

6041 P0KE36876,0 :PRINT"3":W=W-1 :1FWC0THEN8000 
6045 GOTO6001 

6050 RETURN 
7000 W=W+G*R 
7010 RETURN 

8000 PRINT , L"I(!li!MBMi!lJjt!ltì M* ORME OVER : END 

9000 PR I NT " a" ; : L=VRL ( Zf > : I FL=5THENL=2.5 : PR I NT " SWWM«SW««" 

9001 FORI=0TO8:PRINTSPC< <L-1>#5 >" ":NEXT: RETURN 

RERBV. 


_ 
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Dovete raggiungere la base con la vostra Moon Buggy 
senza colpire le mine stellari e prima di finire il carbu¬ 
rante. 

Le mine si trovano dovunque e dovete cercare di ma¬ 
novrare il vostro veicolo schivandole. 



Struttura programma 


Linee 


1-15 

Inizio 

20-45 e 

Set - up del display 

2000-2050 


50 

caratteri tastiera 

52-77 

controllo verticale veicolo 

80-86 

controllo orizzontale veicolo 

200-210 

esplosione mina 

10000-10025 

DATA 


Controlli: 

Z - sinistra 
C - destra 

M - spinta propulsiva 



--- • 

Variabili 


SC = punto rif. schermo 
XI = posizione orizz. veicolo 
J1 = posizione vert. veicolo 
X = posizione orizz. precedente 
J = posizione vert. precedente 
FU = carburante 
VV = velocità verticale 
D = distanza verticale 
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Il programma proposto ha lo scopo di aiutarvi ad impa¬ 
rare la fisica con un esempio di facile comprensione: il 
lancio di un proiettile sparato da un cannone. 






5 PRINT "3" 

10 PRINT" CRLCOLO DELLA GITTATA,DEL TEMPO" 

20 PRINT" DI VOLO E DELL'' ALTEZZA MASSIMA" 

30 PRINT" RAGGIUNTA DA UN PROIETTILE LANCIATO" 
40 PRINT" AL SUOLO CON VELOCITA'INIZIALE V" 

50 PRINT" E CON ANGOLO DI INCLINAZIONE A" 

55 PRINT 
60 PRINT 

70 INPUT" VELOCITA'INIZ.< METRI/SEC)"; V 
75 PRINT 

80 IF V<0 THEN 200 
90 IF V=0 THEN 210 
100 INPUT" ANGOLO INCL.(GRADI)";A 
110 IF A<0 OR A>90 THEN 225 
120 A=ff*A/180 : REM CONVERSIONE GRADI RADIANTI 
130 TP=V*SIN<A)/9.8 : TT-2#TP 
140 G=V*COS<A>*TT 
150 H=TP12*9.8/2 
155 PRINT 
160 PRINT 
170 PRINT 
180 PRINT 
190 END 
200 PRINT 
210 PRINT 
220 END 
225 PRINT 
£30 PRINT 
240 PRINT 
245 PRINT 
250'£0 TO 


TEMPO DI VOLO: ";TT-"SEC" 

ALTEZZA MASSIMA =";H;"METRI" 

GITTATA:"JGJ"METRI" 

» 

LA VELOCITA'NON PUÒ ESSERE NEGATIVA": GOTO 60 
IL PROIETTILE RIMANE FERMO" 


L' ANGOLO DI INCLINAZIONE DEVE ESSERE" 
COMPRESO TRA 0 E 90 GRADI" 


100 
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Questa volta gli alieni stanno attaccando in massa per 
rapire dei poveri esseri umani. 

Dovete cercare di distruggere i «rapitori» al più presto 
in modo da far ridiscendere i «rapiti» sani e salvi. 
Attenzione! Se i rapiti raggiungono la parte alta dello 
schermo, cominceranno ad attaccarvi per vendicarsi 
di non essere stati liberati. 
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Struttura programma 
Linee 


Variabili 


100-200 Inizio 

220-250 Alto o basso, movimento giocatore 
330-440 Test distruzione missile o nave 

450-750 movimento nave 

760-770 Test distruzione 10 umanoidi, chiamata fine del gio¬ 
co 

980-1080 Stampa messaggio e punteggio 


X, Y = posizione giocatore 

D = spinta 

S = punteggio 

H = umanoidi 

X (). Y () = posizione navi spaziali 
A (), B () = posizione missile 
K = INPUT 
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100 


Dt=" HKEKKKUfifflfflBffiKIfflfflBlSK!®®® 

tS HJ " - X * = '' 


31 J 


1 IO 
120 

130 

140 

150 

160 

170 

1 80 

1 90 
200 
210 

2 20 

230 

240 


260 

270 

280 

290 

300 

310 

320 

330 

340 


360 

370 

380 

390 

400 

4 10 
420 
430 

440 


•l 


POKE 36879,8* PRINT" Q M * Y=10 * DX=0 * S = 0 * H = 0 

DIM X (2) ,Y(2) , F* (2) * FOR 1=0 TO 2* F * <I > =“D M * 
X (I)=10+1NT (RND<1 > *1 1 > * Y(I) = INT (RND <1)410) 
NE X T I 

DIM A < 2 ) , B < 2 > * FOR 1=0 TO 2* A < I )=99 * NE X T 
PRINT LEFT$(D$, Y+l) 


• 9 


FOR 1=8164 TO 8185* POKE 1+30720,5* 

POKE 1+30698,5 

POKE 1,102* IF RND <1>>.5 THEN POKE 1-22,102* 
GOTO 200 

IF RND(1)>.5 THEN POKE 1-22,104* GOTO 200 
IF RND(1)>.8 THEN POKE 1-22,108 
NE X T I 

FOR L=0 TO 2 

FOR H=1 TO DX-(DX=0> * K = PEEK (197) * 

IF K<>9 AND K<>26 THEN 260 
Y=Y+(K=9)—<K=26)* IF Y<1 THEN Y=1 
IF Y >19 THEN Y=19 

PRINT LEFT* (D*, Y) " B B B B B B B * * * (filili 
Il B k > Il Si ^ ■ k R IS II II II ^ “ 

IF DX >0 THEN POKE 36877, 130* POKE 36878,2* 
GOSUB 780 

DX = DX+<K=17>-<K.= 18> * IF DX<0 THEN DX=0 
IF D X =0 THEN POKE 36877,0 
IF DX >2 THEN DX=2 
IF K< >41 THEN 450 

PRINT LEFT* (D*. Y+l > " B B B B B B B B B B 

POKE 36878,12 

FOR 1=250 TO 230 STEP -1* POKE 36877, 1* NE X T 
FOR 1=0 TO 2 

IF A(I)>9 AND B<I)=Y+1 THEN A(I)=99* S=S+5 

IF XIIXIO OR Y<I)<>Y+1 OR X(I)>21 THEN 440 
POKE 36877,250 

S=S+10* IF F*<I>= M PI" THEN S=S+20 
PRINT LEFT *<D*,Y<I>>; LEFT*<X*, X( I > ) 

- a * (fi il sa - " 

FOR J=1 TO 10* NEX T J 
IF F*<I)<>"U" THEN 430 

S = S+10 * IF YIIX15 THEN H = H+1 * GOTO 430 
POKE 8142+ X <I) , 108 
X ( I)=99 

NE X T I* PRINT LEFT*<D*.Y+l) “ 


POKE 36877,130* POKE 36878,2 
450 NE X T PI* IF X(L)=99 THEN 640 

460 PRINT LEFT*(D*,Y(L)); LEFT*(X*,X<L))“ A (fi 


470 

480 

490 

500 

510 


IF 

IF 

IF 


iib ; 

F*<L)="PI" THEN 600 

F*(L)="U" THEN PRINT" ^"* GOTO 540 


Y(L > = 20 AND X < L)< 20 THEN PRINT" 
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Y(L)=Y<L> —<Y<LX21> 

IF PEEK <7680+Y<L)*22+X<L)>=108 THEN F*<L>="LT * 


Y <L ) =20* PRINT" ^ * GOTO 550 

520 IF Y(L)=21 THEN X(L)=X<L)+INT(RND(1)*3-1) 
530 GOTO 550 
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540 

550 

560 

570 


590 

600 

610 

620 

630 

640 

650 

660 

670 

680 

690 

700 

710 

720 

730 

740 

750 

760 

770 

780 

790 

800 

810 

820 

830 

840 

850 

860 

870 

880 

890 

900 

910 

920 

930 

940 

950 

960 


INT(RND(1)*3—1) 


Y <L ) =Y <L) -1 t X <L)= X(L)- 
IF X <L)<1 THEN X <L)=1 
IF X <L)>20 THEN X(L)=20 
PRINT LEFT*<D*,Y<L>) ; LEFT*<X*,X<L>) 
■■"fi IF F*<L)="U" THEN PRINT 
IF Y <L)=1 AND F*(L)="U“ THEN PRINT" 
F* (L)=“M n 


k * [fi 




tt 


* H=H+1i 


GOTO 640 

X <L) =X <L) + (X (L) >7)- <X (LX7) 

Y (L)=Y (L)-M (Y (LXY+l )- (Y(LXY+1 ) ) * <X (LX15) 
PRINT LEFT*<D*,Y<L>>; LEFT*<X*,X(L)) " 7Ù ♦ " 

IF X <L)>6 AND X(L)<IO AND Y(L)=Y+1 THEN 980 
IF X(L)< >99 OR RND(1)<.9 THEN 670 
X( L ) = INT < RND <1)*10> + 10* Y<L>= INT(RND(1)*5)+10* 


F* ( L ) = "D" 


IF RND(1)>. 8 THEN F*<L)="M" 

FOR M=0 TO 2i IF A<M)<25 THEN 700 
C=INT (RND < 1 ) *3) * IF X < C ) =99 OR (RND(1X.97 AND 
F*(C)<>"M") THEN 750 
A(M)=X <C) * B(M)=Y<C)i GOTO 710 
PRINT LEFT*<D»,B(H)>J LEF T* < X* , A < M) ) " ^ " 

B(M)=B(M) + (B(M) >Y+1)- <B(MXY+1 ) 
A(M)=A(M)+(A(M)>8)-(A(M)<8) 

PRINT LEFT*<D*,B<M>>; LEFT* < X*, A (M) ) " taf . " 

IF A <M) >6 AND A <MX10 AND B<M)=Y-»-l THEN 980 
NEXT M 

NEXT Li IF H<IO THEN 210 
GOTO 980 

FOR 1=8142 TO 8162i POKE I, PEEK (I+l)t NEXT 
IF PEEK <7690+Y*22X>32 THEN 980 

IF RND (1)>.5 THEN POKE 8163,102i GOTO 840 

IF RND (1)>.5 THEN POKE 8163,104i 60T0 840 

IF RND (1)>.7 THEN POKE 8163,108i GOTO 840 

POKE 8163,32 

FOR 1=0 TO 2i IF X(I)=99 THEN 940 
IF X<I)>0 THEN 900 

PRINT LEFT♦(D*,Y(I)) " A QQ ||“;i IF F*(I)="U" 

THEN PRINT " A - iH=H+l 
X ( I ) =20 i Y<I)=INT<RND(l)*8)+10i F*<I)="D‘* 

IF RND <1)>.9 THEN F*(I)="h" 

IF RND <1)>. 8 THEN F*<I)="U"s Y(I)=18 
X(I)=X <I)—1i PRINT LEFT♦(D*,Y(I)) ; 

LEFT*(X*,X(I));ì IF F*(I)="M" THEN 930 
PRINT "k * ^ [filili" Jì IF F* ( I ) ="U" THEN 
PRINT "BQ *" 

GOTO 940 
PRINT " Sj 4 ^ " 

IF A <I)=99 THEN 970 

IF A <I)<=0 THEN PRINT LEFT*(D*,B(I))" ^ " i 
A(I)-99i GOT0970 

A(I)=A(I)— 1 i PRINT LEFT*(D*,B(I)) ; 
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LEFT*<X*,A<I>> “isg. * " 

970 NE X T I* RETURN 

980 POK.E 36878,15* POKE 36877,220* FOR 1 = 1 TO 500* 

NE X T* POKE 36877,130 

990 POKE 36879,42* PRINT LEFT»<D*,Y+1>; LEFT*<X»,7) 

" SD i=i * ?=3 “ * FOR 1 = 1 TO 75 

1000 L=7710+Y*22* L = L+I NT<RND<1) * I)-INT(RND(1>* I) * 

POKE 36878,15-INT(I/5) 

ÌOIO L1 = INT <RND(1)*1> - INT<RND<1)* I ) 

1020 L=L+L1*22* 1F L<7680 THEN L=7680 

1030 IF L >8185 THEN L = 8185 

1040 POKE 30720 + L, 1 * POKE L,46* NE X T 

1050 POKE 36879,27 

1060 FOR 1 = 1 TO 500* NE X T 

1070 POKE 198,0* POKE 36877,0 

1080 PRINT “ a BSAME ^ OVER A E3 * SCORE" S 


NOVITÀ ALL’EDICOLA LIST 




William Tumer 





I manuali COMMODORE VIC-20 E CBM 64 


Se sei interessato all’acquisto dei manuali presentati (edizione inglese) puoi 
richiederli a: libreria INGEGNERIA 2000 - Via della Polveriera, 15 - 00184 ROMA 
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Un gioco di grafica e movimento. Obiettivo: salvare la 
balena dagli esquimesi che ne sono a caccia sui loro 
kayaks in modo da permetterle di continuare la sua vi¬ 
ta nei mari artici. 

Per fermare gli esquimesi — i cui movimenti sono in 


relazione a quelli della balena — dovete cercare di farli 
andare contro gli icebergs. 

Livello di difficoltà selezionabile. 

Da notare i tre caratteri grafici definiti dell’utente «n» 
per la balena, «i» per gli icerbergs, «e» per gli esqui¬ 
mesi. 



Struttura programma 







Linee 

10 definizione arrays 
500 definizione carattere graf. balena 
600 definizione carattere graf. iceberg 
700 definizione carattere graf. esquimesi/kayaks 
1000 stampa titolo e selezione livello difficoltà 
2010 stampa esquimesi posizione iniziale 


2110 stampa icebergs posizione iniziale 
2205 stampa balena posizione iniziale 
2300 LOOP principale 
3010 routine movimento balena 
4010 routine movimento esquimesi 

7000 fine del gioco ^ 



è » 
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1 REM CflCCIR fìLLR BRLENfi 


10 

dim : 

X (20) 



20 

DIM Y(20) 



500 

POKE 

USR 

“U“ *»*0 , B IN 

0000000F 

510 

POKE 

USR 

“U“ -*-1 , BIN 

0000000R 

520 

POKE 

USR 

“U“+2.BIN 

00110000 

530 

POKE 

USR 

“U“ 4-3, BIN 

01111000 

540 

POKE 

USR 

“U“ 4*4 , BIN 

1111100.1 

550 

POKE 

USR 

“U“ 4-5 , B IN 

11111111 

560 

POKE 

USR 

“U“ 4-6.BIN 

11111003 

570 

POKE 

USR 

“U“ 4-7 , BIN 

00000000 

600 

POKE 

USR 

“ 1“ 4-0 , BIN 

00000000 

610 

POKE 

USR 

“ 1“ 4-1 , BIN 

00100000 

620 

POKE 

USR 

“ 1“ 4-2, BIN 

01110010 

630 

POKE 

USR 

“1“ 4-3, BIN 

01110110 

640 

POKE 

USR 

“1“ 4-4 . B IN 

01111110 


2130 LET V=CCSGN CRND-.5) ) * l (RND 
*4) + 4-D) ) + 9 


2140 

INK 7 


2150 

PRINT RT Y,X;“J*“ 


2170 

NEXT C 


2205 

INK 0 


2210 

LET X = INT ( (RND *2) 

+ 10) 

2220 

LET Y = INT ( (RND *2J 

+ 10) 

2240 

PRINT RT Y . X; 


2300 

GO SUB 3000 


2305 

LET F =0 


2310 

FOR C = 1 TO 20 


2320 

IF X(CJs0 THEN GO 

TO 2340 

2325 

LET F=2 


2330 

GO SUB 4000 


2340 

NEXT C 








650 

POKE 

USR 

• • j • « 

+5,BIN 

11111111 

660 

POKE 

USR 

• • • i 

+6,BIN 

11111111 

670 

POKE 

USR 

• • j i • 

+7.BIN 

mimi 

700 

POKE 

USR 

••E 0 ' 

+0,6 IN 

00000000 

710 

POKE 

USR 

% % |CT • • 

+ 1..BIN 

11001000 

720 

POKE 

USR 

• • g # • 

+2,BIN 

01011000 

730 

POKE 

USR 

• • g t • 

+3,BIN 

00111000 

740 

POKE 

USR 

• • g • « 

+4,BIN 

limili 

750 

POKE 

USR 

• • ^ t • 

+5,BIN 

00111 100 

760 

POKE 

USR 

% • p» • » 

+6,BIN 

00001000 

770 

POKE 

USR 

11 g i • 

+7.BIN 

00000110 


1000 XNK 0: 
1010 CLS 
1020 PRINT RT 
RLENR" 

1030 PPXNT RT 
NEI KRYRKS“; 

0 ; “) “ 


2,2;"5RLUIRMO LR B 

4- .2; “GLI ESCHIMESI 
( “; INK 2;INK 




104.0 PRINT “ 
R BRLENR“ ; “ ( 

• 1050 PRINT “ 

E“ 


1060 PRINT “ 
ON I LORO“ 
1070 PRINT “ 




1075 PRINT " 
ORE(5,6.7,8) 
ELLR BRLENFI 
E <0> PER 


KRYRK5" 

1030 PRINT “ 
I GIOCRRE. 



IUELLI DI. 


STRNNO CRCCIRNDO L 
• • 

PER SRLUARLB DOUET 

FRRLI NRUFRRGRRE C 

KRYRKS CONTRO GLI 
INK 7; “Ji“; INK 0; 

U5RTE I TRSTI CURS 
PER IL MOVIMENTO D 
NELLE 4- DIREZIONI 
FRR MUOVERE SOLO I 

POTETE SCEGLIERE D 

R TRE DIFFERENTI L 

DIFFICOLTÀ' .. 

'■? " 


1085 PRINT 

1090 PRINT “ 1=DIFFICILE. 2= 

• MEDIO. 3 =FRC ILE “ 

1095 INPUT D 

1120 IF D <1 OR D > 3 THEN GO TO 10 





1125 CLS 

1500 INK 5: PRPER 5 
1550 CLS 

2010 FOR C=1 TO 20 

2020 LET X=M5GN (RND—.5) ) * ( (RND 
*4) + 11) ) +15 

2030 LET Y=( (5GN (RND-.5)) +URND 
*4.) *1-8) ) +-9 
204.0 INK 2 

2050 PRINT RT Y , X ; “V 
2055 LET X(C)=X: LET Y(C)=Y 
2060 NEXT C 
2110 FOR Cai TO 20 

2120 LET X = ( (SGN (RND-.S) ) f( (RND 
*4.) + 5-D) ) -*-15 


24-00 

24.10 

3010 

3020 

304.0 


3105 

3110 

3120 

4-010 


IF F =0 THEN GO TO 8000 

GO TO 2300 

BEEP .1.10 

LET Z=X: LET U=Y 

LET fì$=INKEY$ 

IF R $ = ““ THEN GO TO 304-0 
IF B$ = “5“ THEN LET X =X -1 
IF R$=“8“ THEN LET X=X + 1 
IF B$=r“7“ THEN LET Y=Y-1 
IF B$ = “6“ THEN LET YrY+1 
PRINT RT U.Z; INK 5;“ “ 

PRINT RT Y.X; INK 

RETURN 

PRINT RT Y(C).XCC); INK 5; “ 


4.030 LET E =0 : LET D=0 
4.04.0 LET D=5GN (X (C) -X) 

4-050 LET X (C) =INT (X <C) -D) 

4050 LET E=SGN (Y(C)-Y) 

4.070 LET Y(C) =INT (Y(C)-E) 

4-090 IF RTTR (Y(C).X(C))=47 THEN 
LET X (C) =0 : GO TO 4500 
4110 IF RTTR CY (C) ,X (C) ) =4-0 THEN 
GO TO 7000 
4120 INK 2 

4-130 PRINT RT Y ( C ) , X ( C ) 

4500 RETURN 

7000 PRINT RT 20,2; FLRSH 1;“LR 
BRLENR E'STRTR CRTTURRTR*“; 

7005 PRINT RT Y(C),XCC);“ “ 

7010 GO TO 9000 

8000 PRINT RT 20,4; FLRSH 1; PRP 
ER 6;“ LR BRLENR E'SRLUR! 

9000 INPUT “UUOI GIOCRRE DI NUOU 
07 5I/NO M ;G$ 

9010 IF G$=“S“ OR G$=“S“ THEN RU 
N 

9015 CLS 

9116 PRINT RT 10,9;“FINE DEL GIO 
CO“ 

9300 GO TO 9116 
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Struttura programma 
Linee 

300 A$: colore delle barche 

310 definizione grafica barca dai DATA 

400-430 disegno sfondo e linea di arrivo 

510 corsa 

520 rumore motori 

540-550 X (e) contiene la posizione della barca, incrementata 
casualmente 

560-570 ripetere per le quattro barche la stessa procedura fino 
a trovare la vincitrice 

600 fine della corsa, vincitrice, musica vittoria 




1 REM rega t a 

2 RRNDOMI2E 

10 BORDER 1: PRPER 1; CLS 
20 FOR a=2 TO 7 

30 PRINT ; ' ' 

4-0 INK a 

50 REM dalle virgolette al tra 
tto grafico battere 7 spazi 
100 PRINT " 

0 PRINT " 

20 PRINT " 

• t 

130 PRINT " 

■" 

14-0 PRINT " 

■" 

150 PRINT " 

fio PRINT ;'' 

170 PRINT - 
%% 

0 PRINT •* 

«t 

190 PRINT ” 

11 

sree print ~ 

»• 

210 PRINT •* 

II 

220 PRINT •• 

%% 

0 PRINT ; ' " 






















Quattro le navi al nastro di partenza. Vogliamo scommettere 
su una di esse? Avete 100.000 lire a disposizione. 

Buona fortuna! ! ! 

(Istruzioni per giocare inserite nel programma) 
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ZX - SPECTRUM 
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••• 

•••••• 

••••••• 

•••••• 

• ••• 
•• ••••••• 


:::::: ::: :::::: 



_ THEN , .. R 

w co^o" racconterei e 

765 oSnsE 1®®® : R ^ T . NO 

766 i0Ci ; PRINT / F pp HEGL- 

770 P«Vi SE RULÒRA FORSE ERA Mp , , .. 

&ÌM SE ANDAVATE AL-^X c r . 


/ / •» 


- - D o T V E D 

A R rUN 


>into l 


780 PAUSE 1 ®®®;'. «V 

300 PRINT > 

•• • 3 )-U _lire +3^^ . ••-tir 

81 ® Lf T ^f. e ''ÓRA AVETE L. > 

320 PRINT thEN PRINT 

... TF nr«>.*«8SS®|oi.I^w>aiRS; 



? 3 ° èGHÌ:.COHH E NTO E |-UO . -, e D 


p R R 


24-0 PRINT 
• » 


#f 


© IUO NRRDI 1 


260 PRPER 6: BORDER 


NEXT a 
5; INK 0: C 

300 LET a $ = *'NERP BLU ROS&RUIOL 
R" 

310 POR f= 1 TO 2: POR g =0 TO 7: 
PERO a 

320 POKE USR ChR$ C 14.3+f ) +g , a 

330 NEXT g: NEXT f 

34-0 RflNDOMIZE 

350 GO TO 910 

4.00 POR f= 1 TO 5 

4-10 PLOT 10,f*30: DRRU 2*0,0 

4.20 NEXT f 

4.30 DRRU 0,-120 

500 DXM X (4.J 

510 PRINT RT 20,1;" L . " ; U ; ** sul 
la a$ Ci *5-4. TO i 

e =1 TO 4-; 

/ -6 

INK (e-13: PRINT RT e*4.,X(e 
> ; •• M ;CHR$ 14 . 4 .; CHR$ 14.5 
54.0 LET X(e)=x(e)fRNDfl.77 
550 IP X CO >28 THEN GO TO 600 
560 NEXT e 
570 GO TO 520 

600 INK 0: PRINT RT 19,1;"FINE 
DELLR GRRR" 

610 PRINT •* HR UINTO LR BRRC-R M 
; a $CCe-1)*5 + 1 TO e*5); 

620 IP i=e THEN POR g=l TO 27: 
BEEP «2,9 —5: NEXT g 
625 IP i<>e THEN POR 9=27 TO 1 
5TEP -2: BEEP .2,9-5: NEXT 9 
EP 1,4.. PROBE 100 


§ • • 


, 2 : 


64-0 IP i =e THEN GO TO 600 


650 PRINT 


+ r •• • 


RUETE PERSO! ! ! 


«• 


FORTUNA e,„ 

200 : p 55 , ! rr STOP 

1S5 uir ^re ? i®®®||, {UEN um p 

R T?RACE^ ' auete con voi C 

•®‘prINT " SU DUALE r BARCA VO 

9*®. PR1NT SCOMMETTERE : 

LETE A TO 4- . 

950 FOR • ?. - ; *, • • * ' 

960 PRIN» 

^970 NEXT» . c q TO 

He INPUT ti OR i= 9 THEN ^ T 

9 11* IF \; QUANTO 7“ 

1010 input i then PRIVI-'*- u 

!®2®f> 5 F SIAMO II«^ lE GO TÒ 1®1®.. . 

ÌV PICCOLO SFORZO ^ prINT N b 

Boere ooeeTB p 

T2*Ì 0 tf u=l i r « T»g?F P ?bf 1 '■ - 


LET lire=lire-u 
670 IP lire >0 THEN GO TO 
700 PRINT •* NON POTETE PIU'Gl 

OCRRE:. NON RUETE PIU'UNR LI 

RR ! ! *• : PRUSE 100 
710 PRINT ” POSSO PRRUI UNR D 
OhRNDR?": PRUSE 100 
720 PRINT •• 

730 INPUT t$: 

74.0 IP t*<>"Si M THEN GO TO 770 


#• 



h%rJl u S x i 0 . < > 

10S0 U PR^ SE GO 0 TO 4.00 


1®H g E f R : 0?0 , ®l3!i 3 téÌTl^2és , 

\\*% data 6Ì,224-' e4 "~ 2 *' 


± 
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Un listato breve che però potrebbe risultare utile a 
quanti amino «programmare» le proprie giornate. 

I numeri che compaiono sul fondo del grafico non cor¬ 
rispondono a date ma si riferiscono al 1°, 5°. 10° 
ecc. giorno dalla data di inizio dell’analisi. 



1 rem uunuttunnunuunuun 

2 rem n n 

3 REM n BIO-RHYTHH U 

4- REM t* U 

5 rem nnnnnnnnnnnnnnnn 

6 REM 

7 REM 

3 REM 

9 REM 

IO RE5T ORE 

20 PRINT TRB 11 ; " BIO -RHYTHM*' 

30 INPUT "La tua data dì nasci 
ta? ,, / , Giorno ";gn; " "Mese 

n; “ "Rnno an 

4.0 INPUT "La data odierna?"/^ 
iorno ";go; " "Mese 

"Pnno ao 
50 CLS 

60 LET t=INT f(lao-an)*365.25) 
+ ( (mo-mn) *30- 4375) *(go-gn )) 

70 POR h=0 TO 255 
80 PLOT h j 10 
90 NEXT h 
100 POR r =0 TO 31 

110 PLOT r*8,10; POR f=10 TO 20 
: PLOT r*8,f: NEXT f 
120 NEXT r 


130 PRINT RT 0,0; INK l; H fiSiCO 
• • j PRPER 1 * “Jf*' 

14.0 print'rt 0,9; INK 2; "meritai 
e"; PPPER 2; 


150 

vo"; 

PRINT 

PRPER 

RT 0,19; 
4; 

INK 

4, 

"eiaot i 

155 

PRINT 

RT 21,0; 

•* 1 

s 

10 


15 20 25 30" 

160 POR S=1 TO 3 
170 REftD J 

190 LET l=2*PI*(t-(INT 

> Sj 

190 LET k =2iPlJ < 33-j) t.03 
200 FOR 3 = 1 TO k+l + l2»PI) STEP 
. 1 

210 PLOT INK ( (1 AND J=23J+(2 t=» 
ND j =2e) (4- RND J =33) ) ; (a - l ) * (35 

—26 + J) ,90+SIN a *60 
220 NEXT a 
230 NEXT S 

24.0 INPUT "ftncora? (s/n) L IN 

E a*: IP a* = "s” THEN CLS : GO TO 
1 

24-1 CLS 

24-2 GO TO 24-2 

250 DOTA 23,29,33 


+ 





f i s i c ofi 


mental 



em o tivo 








27 
















20 controlla se la nave è stata colpita 

25 stampa nave 

30 controllo laser 

35-45 laser attivato 
50 toglie 10 punti per uso del laser 
65 stampa alieno in posizione casuale sulla linea 14 
schermo 

70-75 SCROLL dello schermo (per il movimento) 

90 stampa punteggio 


Siete sotto l’attacco di forze aliene. Tutto ciò che pote¬ 
te fare è cercare di evitare di venire colpiti. 
Guadagnate un punto per ogni alieno schivato. Nel ca¬ 
so veniate intrappolati potete fare fuoco con il vostro 
laser: in questo modo vi liberate ma vi vengono sot¬ 
tratti 10 punti. Se un alieno colpisce il centro della vo¬ 
stra navicella, il gioco termina. 


Linee 


5 

IO 

15 

20 

25 

30 

35 

40 

45 

50 

55 

60 

65 

70 

75 

80 

85 

90 


LET S = 0 
LET I = 15 
PRINT AT 0, I; 

IF PEEK (1 tPEEK 16398 + 256 * PEEK 16399) = 60 

THEiN GOTO 90 

PRINT "HE" 

IF INKEY$ <> "X" THEN GOTO 55 

FOR J = -8 TO 8 

PRINT AT 8 - ABS vJ, I + 1; 

( "T" AND O < 0) + ( »□" AND 3 > = 0) 

NEXT 

LET S = S - 10 

IF INKEY$ = "N" AND I > 0 THEN LET 1 = 1-1 
IF INKE Y$ = "M" AND I < 29 THEN LET 1 = 1 + 1 
PRINT AT 14, RND * 31; "W" 

SCROLL 
SCROLL 
LET S = S + 1 
GOTO 15 
PRINT 3 


Comandi: 

N - sinistra 
M - destra 
X - laser 


Struttura programma 


Variabili 

S = punteggio 
J = controllo variabile 
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Comandi: 

5 - sinistra 

6 - basso 

7 - alto 

8 - destra 


Riscirete a raggiungere la base spaziale senza essere 
«risucchiati» dai «buchi neri» che possono apparire 
sullo schermo? 


5 

io 

15 

20 

25 

30 

35- 

40 

45 

50 

55 

60 

65 

70 

75 

80 

85 

90 

95 


RAND 

FOR 1*0 TO 31 
PRINT AT 0, I; 

PRINT AT 7, I; "|" 

PRINT AT 1/5, 31; 

NEXT I 

LET P - 35 +256* PEEK 16397 +PEEK 16396 
POKE P + 194, 184 
POKE P f 23 

LET C * CODE INKEY$ 

IF C < 33 OR C > 36 THEN GOTO 50 
LET D * (33 AND C * 34) - (1 AND C = 33) 

- (33 AND C * 35) + (1 AND C = 36) 
POKE P, 0 
LET P * P + D 

IF PEEK P > 127 THEN STOP 
POKE P, 23 

IF RND >0.5 THEN POKE P + D, 128 
IF INKEY$o"" THEN GOTO 90 
GOTO 50 





Variabili 



\ 



Struttura programma 

5 sequenza numeri a caso per iniziare 
40 POKE base sullo schermo 

45 POKE nave sullo schermo 

50 controllo se il tasto premuto è 5, 6, 7 o 8 
75 controllo se la nave è stata risucchiata o ha raggiunto la ba¬ 
se 

80 POKE nave nuova posizione 


C = CODE del carattere di cui si è premuto il tasto 
D = direzione nave 
I = controllo variabile 
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1 

2 

3 

4- 

» t 

6 

7 




REM **-****■**-*■•**•&■*■-*•■**■*•*•-** 

REM * + 

REM * BONUS & M HLUS * 

REM * * 

REM * © M.Germano 1984- * 

REM * * 

REM * * * * *• * * * * * * * * * * * * * * 

10 RESTORE 9030 
90 POR h=l TO 4 
30 READ a,b/C. d • 

40 PLOT a,b: DRRU C,d 
50 NEXT h 

E>0 PRINT ,, 50NUS-MRLU5 M 

assillali 11 

61 PRINT '"C.U. =.Classe 

=.Massima li =.Ine/Purto= M 

11 Ua rie =" 

62 PRINT fiT 2.19; “D150/75 S 15 




63 PRINT RT 3, 19; “2 > 150/ 100/1v~ 
0";RT 4,19.; , ‘3>150 uni co*' ; hT 5,19 
;"4>200 uni co"; RT 6,19; " 5 >300 un 
1 co" 

64 OUER 1 

65 PRINT RT 10,11;“Premio 10% 
TOTRLE" 

66 PRINT HT 11,11;"Netto" 

67 PRINT RT 13.0; "Rnnuale” 7 ^ n 8 

enieslrale"' ' “Ouadr ia . le” 


Automobilisti, questo programma è per voi! Vi permet¬ 
terà (infatti) di conoscere i premi dell’assicurazione 
Bonus & Malus per la vostra auto. Provate e confron¬ 
tate, magari aumentando i massimali, passando da 
una classe all’altra, oppure variando il capitale assi¬ 
curato. 

Il programma è stato realizzato sulla base delle tariffe 
del gruppo 02 in particolare, per praticità, sono stati 
usati classe e massimali con coefficiente 1. 

Quindi se dovete modificare i dati di partenza interve¬ 
nite alle linee: 

9000 Tariffe base/100 

9010 coefficienti relativi alle classi 

9020 coefficienti relativi ai massimali. 
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ZX - 81 / 16 K 







Struttura programma 


Dell’oro è stato nascosto in un’area suddivisa in 100 
settori. 

Dovete cercare di ritrovarlo sondando il terreno. 
Inserite le coordinate del settore digitando la lettera 
corrispondente alla colonna e il numero di linea. 

uale direzione andare. 


£ 


5 

RAND 


IO 

LET XI - INT ( RND * 10) 


15 

LET Y1 - INT (RND* 10) 


20 

FOR I - 1 TO 10 ! 


25 

PRINT 10 - I; "1BBBIIBIII 11 

30 

NEXT I 


35 

PRINT ''□ABCDEFGHIJ” 


40 

INPUT B$ 


45 

LET X * CODE B$ ( 1 ) - 38 


50 

LET Y - CODE B$(2)-28 


55 

LET D$ - C'QNORTH" AND 

Yl> Y) 


+ ( "□SOUTH” AND 

Y1 « Y) 


+ ( ”□ EAST” AND XI > X) 

+ ( "QWEST" AND X1<X) 


+ ("U££££" AND (XI 

» X AND 



Y)) 


60 PRINT AT 13,0; B$; D$ ; "□□□□□□" 
65 PRINT AT 9 - Y , X + 1 ; " * " 

70 IF D$(2) • "£" THEN GOTO 90 
75 INPUT B$ 

80 PRINT AT 9-Y.X + l; "H" 

85 GOTO 45 
90 PAUSE 200 
95 CLS 
100 GOTO 10 





Linee 

10-15 nasconde oro in una locazione casuale 
20-35 disegno area 
40 INPUT primo tentativo 

45-50 converte coordinate nel num. di linea e colonna mediante 
CODE 

55 calcolo direzione in cui procedere 
60 stampa risultato 

65 disegno asterisco tentativo 

75 INPUT prossimo tentativo 

90 trovato oro 


Variabili 

XI = num. colonna 

J1 = num. linea 

X = num. colonna tentativo 

J = num. linea 

B$ = coordinate tentativo 

D$ = direzione in cui procedere 
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Struttura programma 


Olimpiadi Invernali. La gara di slalom vi attende: è la 
vostra grande possibilità. Due i percorsi scelti a caso 
dal computer (analizzando il programma sarete in gra¬ 
do di alterarli o sostituirli con percorsi a vostro piace¬ 
re). 


Linee 

40 Tasto premuto non valido 

50 alterazione posizione sciatore 

110 stampa regole 

120 selezione percorso 

130 posizione iniziale percorso 

140 posizione iniziale sciatore 

2020 stampa traguardo 




Comandi: 

5 - sinistra 


8 - destra 


Un piccolo percorso alternativo potrebbe essere il se¬ 
guente: 


t 


01 01 1 - 1 - 2 - 2 - 00-00 


programma con il nome SKI 

20 REM MOUIMENTO 
30 LET O=CO0E INKEY$ 

4.0 XP HOT D THEW RETURN 
50 IP 0 = 33 THEN l_ET 6 = 6-1 
60 XP 0=36 THEN LET 6 = 6 + 1 
70 LET S=S-INT (S/321*32 
80 RETURN 

100 REM INIZIO GIOCO 
110 GOSUB 2000 
120 GOSUB 8000 


1 REM **tSLRLOM*** 


3 REM 

10 GOTO 100 


15 17 00 


Salvare il 


- 
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130 LET P=UPL C$(l TO 2) 

14.0 LET 5=URL C*t3 TO 4.) 

150 LET H=0 
1000 REM RUN 

1010 FOR X =5 TO LEN C$-1 STEP 2 
1020 5CROLL 

1030 PRINT RT 2i,P.; " RT 21,PfG 
; •• *" ; RT 21,5; "U %% 

104.0 GOSUB 20 

1050 LET P=P+URL C$(X TO X*l> 
1050 GOSUB 20 

1070 IF 5<=P OR 5>=PfG THEN LET 
H=H + 1 

1080 NEXT X 
2000 REM TRRGURRDO 
2010 


FOR X=P TO P+G 
PRINT RT 21,X;“-"; 
NEXT X 


2100 

2110 

2120 

2130 

8000 

5010 


colpito portr 



PRINT 
GOTO 
REM 
REM 

LET C $ = " 14.1T00000000-1-1-1- 
1 — 100000001010200 — 1 — 1 —100010200 - 
200 - 1 - 1 - 100000000010101010101 - 2 - 
2-2000000000101010ioio 1010 102020 
2000000000000-1-1-1010101-1-1-1- 
1-1-2-2-2-2-2-1-1000000010101010 
101-2-2—2—2000000010102020202010 
1010000000000000000 %% 

8030 IF RND<0.5 THEN RETURN 
S04.0 LET C$ = ## 0002000000000000000 
G 000000000101010 1010101010 101000 
00000020202020000-1-1-1-1-1-1-1- 
1010101010000000000000000-l-l-l- 
102020202010101-2-2-2-2-2-2-2-1- 
1-1-1-10101 -1 -1000000000000 %% 


3050 RETURN 
S000 REM REGOLE 
9010 CLS 
G020 5LOU 

0030 PRINT TR© &}"*** 

f c 

904-0 PRINT 


SLRLOH *9* 


9050 PRINT "DOVETE 5EGUXRE XU PE 
RCORSO FINO"/‘RLLfì FINE SENZA US 
GIRNE FUORI","O URTARE l_E PORTE" 
9060 PRINT "POTETE 5ELEZIONRRE I 
(_ LIVELLO" , “DI DIFFICLTn.” 

9070 PRINT . 5“ ”= SINISTRO, ””B" 

"= DESTRA" 

9080 PRINT 


9100 PRINT "LIVELLO DIFF 
/"1)PR INC- IP IANTE " , " 2 > 


r 9 


** ## 


, *'3i £ 

9110 INPUT SK ILL 

9120 IF SKILL>0 RND SKJjLL S «#- THEH 
GOTO 920O 


914-0 

9150 


Il 


9210 


PRINT 
GOTO 9100 
LET G=3+<4- 
PRINT 
FOR X=3 TÓ 
PRINT X;”. 


Il 


l 


SEI PRONTO? - 
1 STEP -1 


## 


it 
• / 


NEXT X 
RETURN 




m* 
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ZX - 81 / 16 K 







Oi)n. 






\ ' 


I • • 





* v 















finiti con la vostra astronave in mezzo ad un 
gruppo di asteroidi. Gran parte dei comandi sono in 
avaria a causa di una collisione: potete muovervi solo 
a destra e a sinistra. 

Per quanto tempo riuscirete ad evitare che le meteore 
vi colpiscano e distruggano? 
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Struttura programma 


Linee 





differenti asteroidi 

sceglie asteroide da stampare sul fondo dello 


20-190 
300-530 
schermo 

600-630 movimento nave secondo INKEYS, SCROLL asteroi¬ 
di, stampa nave 

2000-2030 scontro; esplosione 
2100-2260 punteggio e punteggio max. Nuovo gioco 
5000-5050 reset variabili all’inizio di ogni gioco, preparazione 
schermo e nave per nuovo gioco. 



1 REM «STEROID 















M 


4-0 


10 GOTO 7000 


PRINT RT 
RETURN 
PRINT RT 
RETURN 
PRINT RT 
RETURN 
PRINT RT 
RETURN 
PRINT RT 
RETURN 
PRINT RT 


PRINT RT S,S 


100 

110 

120 



*Ri 
/Ri 
/Ri 
.Ri 
.Ri ' 



THTO 

Il 

211© 
S120 

Il ■•» 

* 313® 



Il II 

^112 = 


Il « v 


»* 


II 


RT 21.Ri* 


«t 


0 PRINT RT 2®.Ri"i“i«T 21,Ri 


150 RETURN 

60 PRINT RT 20,fli"JL"iRT 


ir 

170 RETURN 

PRXNT RT 
, «w»'* ; RT 21,0, 

190 RETURN 


2i,o; 


» » mm « 


• •> 



RT 20,R 


GO >50) ♦( GO >10 


FOR F=1 TO 1+C 
0) +(GO >150) 

510 LET R=INT (RND+30) 
520 GOSUB 20+INT (RNO*9 
530 IF RNO <.8 THEN NEXT 


600 LET GO=GO+l 

610 LET X=X+(INKEY*=“8")-(INKEY 

* = "5") +(X <1) —(X >23) 

620 SCROLL 

630 PRINT RT S.X-li” '• ; RT 1 

8 , X; ” <B> “ i RT lJ.Xi** *”;RT 12, X; 

?00 LET 0=PEEK (PEEK 16398+256* 
PEEK (16399)) 

710 LET R=PEEK f1+PEEK 1639S+25 
6+PEEK (16399)) 

720 LET S=PEEK (2+PEEK 16393+25 

6+PEEK (16399)) _ 

730 IF 0+R+O>il8 RNO 0+R+3<l=34 

THEN GOTO 2000 
74-0 GOTO 5O0 


U=1 TO 10 

2010 PRINT RT 10 .XJ ” S '' i RT 11 , X 
; •* "; RT 1 0, X ; ; rt 9,X, "«Sta 

*• ; RT 11, X; 

PRINT RT 10.X+1;” "iRT 9,X; 

*■ ; RT 10,Xi" ";RT 11 ,Xì '* 


£030 NEXT «J 


IF GO < HI 


2150 IF GO < H2 
H3=GO 

2200 PRXNT RT 
GGIO = ; HI 

2210 PRINT RT 
GGIO = ";H2 

2220 PRINT RT 
GIO = ";H3 

£230 PRINT RT 


, -, "TI SEI SCHXRM 
PUNTEGGIO “;GO 
THEN LET H3=H2 
THEN LET H2=H1 
THEN LET Hl=GO 
RNO GO>H2 THEN LEV 

RNO 6C:.«3 THEN LET 

8,S;"MIGLIOR PUNTE 

9,5;"SECONDO PUNTE 

10,5; "TERZO PUNTEG 

"VUOI GIOCOLO^' 


• • 


0 

2250 


5000 

5010 

6020 


PRINT RT 13,3; "RNCORR? <Y/N) 

IF INK£V*="Y" THEN GOTO 500 

IF INKEY$="N" THEN STOP 
GOTO 224-0 
R RNO 

LET X =15 
LET 60=0 


t • 


504-0 PRINT RT 10 , X ; " :B> " ; RT 11, X 

Il | Il 

5050 GOTO 500 
7000 PRINT " 

7010 PRINT 

7020 PRINT "IN QUESTO GIOCO DEUI 
EUITRRE GLI" 

7030 PRINT *' ASTEROIDI CHE TI UEN 
CONO CONTRO” 

704-0 PRINT ”MUOVENDO LR TUR RSTR 
ONRUE CON I" 

7050 PRINT "TRSTI •••• 5 "” E ""8"". 


• # 


7060 PRINT “LR TUR RSTRONRVE: -" 
7070 PRINT RT 8,10; "<B> "iRT 9,11 


I# « Il 
J T 


70OO PRINT 

r«5TI 5 O 

PRINT 


uri” 

7100 PRINT 


INPUT R$ 


N 17 
7110 
7120 

7130 LET H1=0 
714.0 LET H2=0 
7150 LET H3=0 
7160 GOTO 5000 


"PER MUOVERTI TIENI I 
§ • 

"8 CONTINURMENTE 
" PREMI NEULINE PER I 
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IL SINCLAIR QL: 

potenza professionale in stile Sinclair 

Memoria 128K 
Processore 32 - bit 
Tastiera professionale 
Due Microdrives incorporati 
Display a colori ad alta risoluzione 
Software incluso: Spreadsheet, 

Database, Word-processing, Business graphics 

Personal professionale 
con II Sinclair QL 

* Tutta la velocità e la potenza di un processore a 32-bit. 

* Capacità: 128K RAM standard, espandibile fino a 640K. 

* Due Microdrives incorporati, 100K per cartridge. 

* Possibilità di collegamento in rete - fino a 64 Sinclair QL 
e ZX Spectrum, ognuno con periferiche. 

* Porti RGB o monitor monocromatico e TV; porti joystick; 
RS-232-C. 

* Nuovo sistema operativo QDOS. 

* Nuovo linguaggio Sinclair SuperBASIC. 

* Nuovo software. 
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il salto 


di qualità Sinclair 


Nel 1980, la Sinclair lanciò sul mercato un «piccolo» computer: 1K di 
memoria RAM; display in bianco e nero. Per lo standard di oggi era 
«primitivo». Ma funzionava - e lo ZX80 iniziò la rivoluzione del compu¬ 
ter in G.B. 

Dopo quattro anni - e tre computers - la Sinclair lancia un prodot¬ 
to che è ancora più «rivoluzionario» dello ZX80: il Sinclair QL, che rap¬ 
presenta un notevole salto di qualità nei personal micros. 

Il Sinclair QL offre 128K di memoria RAM - espandibili fino a 
640K. 

Usa un processore a 32-bit - il chip Motorola 68008. 

Viene fornito completo di quattro programmi professionali. 

Ha due Microdrives incorporati, i quali offrono 100K ognuno. 

Possibilità di collegamento in rete; tastiera professionale QWER¬ 
TY; sistema operativo proprio • QDOS. 

Collegamento con monitor a colori, monocromatico e televisore, 
interfaccia seriale RS-232-C incorporata, controllo ioystick... 

Permette di fare più di ogni micro disponibile al momento: pro¬ 
grammi gestionali e giochi altamente sofisticati. Rende la progetta¬ 
zione e l’esecuzione di programmi complessi più semplice e più velo¬ 
ce. Grazie alla sua potenza è di grande aiuto ai principianti e flessibi¬ 
le con i programmatori di un certo livello. 
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Come usare il Sinclair QL 


È facile imparare ad usare il Sinclair QL. Il 
manuale fornito con la macchina è strut¬ 
turato in modo tale da assicurare accesso 
immediato alla potenza completa del QL. 

Include: 

* una descrizione più che esauriente del¬ 
la macchina e di come usarla 

* come programmare con il Sinclair Su- 
perBASIC 

* un manuale di riferimento per il Sinclair 
SuperBasic 

* una guida completa ai programmi QL 
Quill, Abacus, Archive ed Easel 


Il programma di 
espansione QL 


Il programma comprende già: 

* C compiler 

* assembler 68000 

* emulatore di terminale 

* scheda espansione di memoria da 0.5 
Mb 

* convertitore 

* interfaccia hard disk (Winchester) 

* modem 

* interfaccia stampante parallela 

* interfaccia IEEE-488 
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INPUT 



TAÌULATC 


CAP 8 LOOK 


cm 


Sinclair SuperBASIC Tastiera 


Microdrives 


Il BASIC Sinclair è uno dei linguaggi più 
popolari per il QL è stato reso ancora più 
potente. 

Il nuovo Sinclair SupeBASIC non pre¬ 
senta difficoltà .per chi già conosce il BA¬ 
SIC Sinclair. Semplicemente comprende 
un maggior numero di istruzioni che per¬ 
mettono di sfruttare pienamente le capa¬ 
cità del QL. 

I tre vantaggi maggiori sono che è 
completamente strutturato nella procedu¬ 
ra, può essere esteso, la velocità di ese¬ 
cuzione è indipendente rispetto alla lun¬ 
ghezza del programma. 

Per programmi di una certa consi¬ 
stenza, verrà senz’altro apprezzata la faci¬ 
lità di procedura, che permette di scrivere 
istruzioni CODE in blocchi chiaramente 
definiti. 

L’estendibilità permette di aggiungere 
nuove procedure. 

La velocità costante di esecuzione fa 
si che il SuperBASIC non diventi più «len¬ 
to» in rapporto alla lunghezza dei pro¬ 
grammi. 


La tastiera del QL è stata disegnata per 
l'immissione veloce e accurata di dati e 
programmi. 

La tastiera è formata da: 65 tasti, in¬ 
cluso spazio; tasti direzionali 
destra/sinistra; cinque tasti funzione; 
quattro cursori di controllo separati. 

È silenziosa, con un leggero «click» 
indicante che il tasto è stato toccato. 

Una membrana protegge la macchina 
dalla polvere. 






a. arasB»# 



.w 

r 

E 1 

TABULATE 



v 


tS 

CAB» LOOK 


A 



Il computer inoltre può essere «solle¬ 
vato» mediante dei piccoli supporti per ve¬ 
nire incontro a coloro che preferiscono la¬ 
vorare su una tastiera angolata. 


I Microdrives per il QL sono identici, nel 
principio al microdrive per lo ZX Spec- 
trum, ma la loro capacità e velocità nel 
trasferimento dati è maggiore. 

Le cartridges sono rimovibili, ed 
ognuna ha la capacità di 100K bytes. La 
velocità di accesso è di 3.5 secondi; pro¬ 
grammi o dati possono essere caricati 
nella RAM interna a una velocità di 15K 
bytes/secondo. 

Il Sinclair QL ha due Microdrives in¬ 
corporati, ma volendo se ne possono col¬ 
legare altri sei (queste sei unità aggiunti¬ 
ve devono essere QL Microdrives - ZX Mi¬ 
crodrives non sono compatibili, anche se 
le cartridge, mediante appropriata format¬ 
tazione, possono essere intercambiabili). 

L’apparecchio viene fornito con quat¬ 
tro cartridges vergini. 
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Processori 


Il Sinclair QL ha due processori e due con¬ 
trolli di chips. 

Il processore principale appartiene ai pro¬ 
cessori a 32-bit della serie Motorola 68000 -il 
68008 - considerato il microprocessore più 
potente disponibile al momento. 

Chi usufruirà del QL apprezzerà imme¬ 
diatamente il set di istruzioni che il proces¬ 
sore offre. E la sua potenza e velocità offro¬ 
no incredibili possibilità per la progettazione 
di sotfware spettacolare. 



Memoria 

Per ottenere il meglio da un processore 
molto potente, c’è bisogno di programmi 
che lavorino su un gran numero di dati. 

Ma per ottenere ciò c'è anche bisogn di 
molta memoria - ed il Sinclair QL dispone, 
con i suoi 128K RAM. di tutta la memoria 
necessaria. 



Sistema operativo 
QDOS 

La ROM 32K del QL opera mediante un 
nuovo sistema • il QDOS - preparato appo¬ 
sitamente per il QL. 

Nessun sistema operativo esistente 
sarebbe stato in grado di sfruttare le ca¬ 
pacità di un processore a 32-bit. 

Il QDOS è un sistema unico che ha 
come linguaggio base il Sinclair SuperBA- 
SIC. 

Una delle caratteristiche più signifi¬ 
cative è la sua capacità Multi-tasking. 
Multi-tasking significa avere la possibilità 
di usare diversi programmi individualmen¬ 
te e simultaneamente. Il QL inoltre visua¬ 
lizza i risultati contemporaneamente in 
differenti parti dello schermo. 

Si può anche effettuare lo «scroll» di 
ogni programma indipendentemente dagli 
altri. 

Il QL ha un sistema completamente 
indipendente di input/output. Un program¬ 
ma può essere scritto senza nessun riferi¬ 
mento al tipo di mezzo da usare, in quan¬ 
to ciò può essere specificato durante 
l’esecuzione. Inoltre il QL «sente» il tipo di 
periferica collegata ai propri porti di con¬ 
nessione e ne organizza l’input/output. 


La maggior parte dei computers dispone 
di processori a 8-bit, e solo la nuova genera¬ 
zione di computers professionali dispone di 
processori a 16-bit. 

Oltre al 68008. vi è un secondo proces¬ 
sore. l’Intel 8049, che controlla la tastiera, 
genera il suono, e si comporta come un rice¬ 
vitore RS-232-C. 

Dei due chips di controllo, uno si occu¬ 
pa del display e della memoria; l'altro dei 
Microdrives. dell’orologio, dell’area di net¬ 
work, delle trasmissioni RS-232-C. 


Nel caso questa non bastasse, sarà 
anche disponibile una scheda di espan¬ 
sione che porterà il QL ad avere 640K 
RAM 



I 


41 



























OUTPUT 


A parte i Microdrives, il Sinclair QL ha nove 
porte (entrate) per il collegamento di al¬ 
trettante periferiche. 


•1. Pulsante RESET 

Permette di «pulire» il computer senza 
dover intervenire sull’alimentatore. 


r- 2. Porta per il collegamento di altri 
Microdrives 





’W 

k 1 

- * 3 ■ • - j » fa 



A J 

A M 




■--— £ 






HOT- 




VT TT* A\ " 


à 




- 3. Comunicazioni in rete: QLAN 
(Locai area network) 

Possibilità di collegare fra loro fino a 64 
Sinclair QL e ZX Spectrum. I dati passa¬ 
no attraverso la rete a 100K baud, men¬ 
tre dei protocolli assicurano che le sta¬ 
zioni collegate sono pronte per la rice¬ 
zione. 


L 4. Porta per Monitor 

Il Sinclair QL fornisce un’alta risoluzio¬ 
ne quando è collegato ad un Monitor. 
Disponibili: 512x256 pixels, 4 colori - ne¬ 
ro, bianco, verde, rosso (o una scala di 4 
grigi in monocromo); 

256x256 pixels, 8 colori (o scala di grigi). 
Il numero dei caratteri sullo schermo è 
determinato dal numero dei pixels, ma è 
disponibile una scelta di set di caratteri. 
Il formato normale è 85 colonne per 25 
righe. 

Possono essere usati sia monitor a co¬ 
lori (RGB) che monocromatici. 


5. Porta per TV 

I displays per il collegamento ad un co¬ 
mune televisore sono gli stessi dei di¬ 
splays per monitors, ma il formato è 
40/60 colonne, a seconda del software. 
Si possono usare sia televisori a colori 
che in bianco/nero. 


L Typical QLAN configuration 

* 


\ 


TV or monitor. 


_ / 




Up to 6 QL Microdrives. 



All systems can use these 
Microdrives to store or retrieve data. 







□□□□□□□□□□ 
□□□□nDnaan J 

□□□□□□□□□□□ 
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p7. Entrata cartridge ROM 

Si può inserire una cartridge ROM QL. È 
possibile disporre di 32K ROM. 


8. Entrata espansione per scheda memoria 
da 0.5 Mb e periferiche 



^ M 1 




w - — 
















ir) 

p>“n 




■ ^ 

__^ 

i 



* MMX 




*„r 

K_ ^ 

1.^ 


1 



L, /■■ ^ , i 



** 

>* <’• • ••« ; 





I ^ ^ 





’ 

j . 



^wr — 


4 % 









, • 



V 1 "1 







M u 





L 9. RS-232-C 

Due interfaccia standard per periferiche 
(tipo stampanti e modem). Permette la 
trasmissione ad una velocità da 75 baud 
a 19,200 baud o in full duplex 
trasmette/riceve a sette velocità fino a 
9600 (Una interfaccia per stampante pa¬ 
rallela sarà disponibile come optional). 


10. Joysticks 

Si possono collegare due joysticks. 


11. RS-232-C: stampante o modem o ter¬ 
minale 


\ 


TV or monitor. 









TV or monitor. 


12. QLAN: fino 
a 64 sistemi 


I 

13. QL con espansione di memoria da 
0.5 Mb 




■ISSmnanSIS 
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Un software altamente professionale 


Il software fornito con il Sinclair QL è sta¬ 
to scritto dalla PSION Ltd. La potenza del 
QL rende questo software molto più capa¬ 
ce e semplice da usare. 

Quattro programmi vengono forniti 
-word - processing, spreadsheet, business 
graphics e database management. 

Sono stati scritti per il QL e conten¬ 
gono il meglio dei pacchetti di software al 
momento disponibili. 

Ogni programma è completamente in¬ 
terattivo: il risultato dei comandi inseriti 
viene immediatamente visualizzato. 

Una serie di dati utili è sempre sul di¬ 
splay - nessun comando complesso da ri¬ 
cordare o cercare nel manuale. 

Poiché la serie è stata progettata co¬ 
me un’insieme, i programmi hanno strut¬ 
tura simile - imparata la dinamica di uno 
si è imparata la dinamica di tutti. 

Sono tutti a colori ed i dati sono tra¬ 
sferibili da uno all’altro (per es.: le figure 
rappresentate possono essere trasferite 
dal progr. Spead sheet al progr. di Grafica 
per una presentazione visuale istantanea). 

Il manuale che accompagna i pro¬ 
grammi è chiaro e semplice - e la cosa più 
importante con l’istruzione HELP, nel ca¬ 
so ce ne sia la necessità, viene visualizza¬ 
to il menù completo delle opzioni per tor¬ 
nare poi al punto esatto al quale si era ar¬ 
rivati con le operazioni. 


Word-processing 
(QL Quill) 

Il programma sfrutta la potenza del QL 
per mostrare sullo schermo ciò che verrà 
stampato esattamente - ciò che si vede è 
ciò che si otterrà concretamente. Non c’è 
bisogno di nessun corso - un principiante 
può riuscire ad usarlo in pochi minuti. 

Il display è completamente a colori, 
per la massima chiarezza e comprensione. 


Spreadsheet. 

(QL Abacus) 

Uno dei programmi più popolari per un mi- 
cro - e uno dei più difficili da comprendere 
e usare appropriatamente. 

Il QL Abacus fa calcoli simultanei. 
Applicazioni campione vengono date dal 
programma - budget - planning, analisi di 
cash-flow - ma non c’è limite di applica¬ 
zione. 

Il QL Abacus permette di fare riferi¬ 
mento a righe, colonne e «celle» semplice- 
mente mediante i nomi loro assegnati. 

Non c’è più bisogno quindi di usare lette¬ 
re e numeri senza senso. 

(È possibile inoltre programmare i ta¬ 
sti funzione per cambiare una variabile). 
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Database management Business graphics 

(QL Archive) (QL Easel) 


Il QL Archive è un sistema di filing molto 
potente, che usa un linguaggio ancor più 
semplice del BASIC. Combina facilità di 
uso - per semplici applicazioni - con una 
grande potenza. 

Comprende uno «screen editor» che 
permette di definire uno schermo proprio. 

Procedure e programmi possono es¬ 
sere scritti e registrati per un uso conti¬ 
nuato; è inoltre incluso un «editor» com¬ 
pleto. 

Il QL Archive è provvisto di due appli¬ 
cazioni campione - «card index» e «cheque 
hook». 


Programma a colori ad alta risoluzione, 
facilissimo da usare anche senza manua¬ 
le. 

Linee, curve, istogrammi, statistica 
varia. 

Non c'è bisogno di formattare il di¬ 
splay prima di iniziare ad inserire i dati. 

Testi possono essere aggiunti e alte¬ 
rati come semplici data 
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Un programma utile per chiunque. Possibilità di me¬ 
morizzare oltre 400 nominativi con relativi numeri te¬ 
lefonici. È possibile la ricerca tramite nome o numero. 
Cognome e nome: 20 caratteri max. 

Numero: 11 caratteri max. (inserimento even¬ 

tuale prefisso teleseletivo). 


IL’ ' 
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110 INPUT OpZ 

120 IP OpZ < =0 OR o p z > 7 THEM GO 
70 110 


nuova agenda 


130 

GO TO 

200 

REM 

210 

C L S 

220 

D IM n $ 

230 

POR ri = 

24 0 

PRINT 

250 

PRINT 

280 

PRINT 

270 

INPUT 

INE 

C $ : IP 


/ 11 


NOME=“ 
TELEFONO = ‘' 

OGNùME e NOME = “; L 
IF LEN C*=0 THEN GO TÒ 2 
70 

230 IP LEN c$>20 THEN PRINT PLP 
SH l. ttT 4-, lPj, M max 20 caratteri 

• : PfìUSE 150: PLR5M 0: PPINT RT 
4- . 10; " “ : GO TO 

270 

290 PRINT RT 4,10,C$ 

300 INPUT -TELÈFONO = “j LINE t$ 
310 IP LEN t$=0 THEN GO TO 300 
320 IP LEN t$>ll THEN GO TO 300 
330 PRINT RT 5.10.t$ 

34-0 LET n$ (n) $ 

350 PRINT RT 15,0.; "PRcHI :.a 

-per continuare" ' "b -per corregg 

ere .c -per tornare al menu'** 

350 PRU5E 0 

370 IP INKEY $ = ** a ** THEN CLS : NE 
XT n 

330 IP INKEY$= M b“ THEN CLS GO 

TO 24-0 

390 GO TO 10 

4-00 REM aggiungi nuovo nome 

4-10 CLS 


TO 

15G0 


920 

FOR S — 1 TO n 


930 

LET x =n -S +1 


940 

FOR \=1 TO 32 

950 

IP n $ ( x , i ) = “ 

+ 

0 



960 

NEXT l 


970 

IP n $ ( x ) ( l +1 

1 

PR 

INT nt(x, TO 

I. 


X,l+1 TO UH) : LET M-y+l 
980 NEXT S: IP M<>0 THPN GO TO 
1500 

990 PRINT ‘NUMERO NON TROURTO" 
GO TO 15G0 
999 STOP 

1000 REM stampa 

1010 C-LS : PRINT RT 10.10.~S T F. 
M P R " 

1020 POR S=1 TO n 
1030 LET X = n -S + 1 
104-0 POR 1=1 TO 32 

1050 IP n$(X / l)= M * M THEN LPRINT 
n $ ( x , 1 TO L -lì, TRE 2 1 , D $ ( X . L fi T 
0 14-11) 

1050 NEXT l 
1070 NEXT s 
1080 GO TO 1500 

1200 REM archivio * 

1210 CLS 

1220 5RUE "PGENDfi~ LINE 1 

1230 CLS : GO TO 1 

1400 rem fine proqraift/jia 

1410 NEU 

1500 PRINT RT 21,0,"PREMI 


ERSE 1 , “#>**; 

ENU ' ~ 


,r ; INU 
INUER5E 0,* PER IL M 


420 

NEXT n 


15 10 

PRUSE 0 

800 

REM e len co 

nomi 

1520 

IF INKEY t = "m” 

605 

CLS 


1530 

GO TO 1500 

610 

PRINT “ELENCO 

NOMI*' ' ' * 

2000 

FOR l=1 TO 3? 

630 

PGKE 23692,0 


2010 

IF n $ ( ci .. 1 > = ’• * 


640 LET b=0 
850 LET g=n 
880 LET Z=1 
870 LET b = Z + 1 

880 IP b > g THEN GO TO 75© 

890 IP n$(b) >n$(Z) THEN GO TO 7 


*<9.. 1 TO i — l ) ; TRB 21;n$tg, i n TO 
l +11) 

2015 NEXT t 
2020 RETURN 


10 


700 LET Z= Z+l: GO TO 870 
710 LET q$»=n$(z) 

720 LET =n$(b) 

730 LET n $ (b) = q $ 

740 GO TO 700 

750 POR 1=1 TC» 32 : IF n$ N , U = " 

*•’ THEN PRINT n $ ( g . 1 TO l - ì ) , T RB 

21,n$(g,l+l TO l+il) 

755 NEXT i 
760 LET q=g—1 

770 IP g >0 THEN GO TO 880 

780 PRINT .P I N E~ 

790 GO TO 1500 

800 REM ricerca nomi 

810 CLS 

820 PRINT T RB 11; “RICERCO. 

830 INPUT “NOME O NUMERO da Cer 

care : "; ' LINE r $ 

840 PRINT “Ricerca ir» atto per 
1 . r $ : PRINT ' ' ' 

650 LET f =LEN r%: LET vi =0 
860 IP CODE r$ Cl) ,'=47 RND CODE 
r$< =:57 THEN GO TO 920 
870 POR S =1 TO n 
600 LET x =n-S 4 1 


890 IP TO r)=r$ THEN GO T 

O 392 

691 GO TO 895 

892 POR 1=1 TO 32 

893 IP n$(x,l )=“*“ THEN PRINT n 
$(X, TO l-l);TRB 21,n$ (X, I.+1 TO 

l +1 1) : LET u =CI +1 

894 NEXT l 

895 NEXT S 

900 IF y < > 0 THEN GO TO 1500 
910 PRINT “NOME NON TPOURTO“: C 



conviene 
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Coloro i quali abbiano elaborato programmi originali e di interesse co¬ 
mune ed intendano diffonderli, potranno inviarli, incisi su cassetta o re¬ 
gistrati su floppy-disk all'indirizzo del LIST CLUB (listati di programma 
su carta non potranno essere presi in considerazione). Tali elaborati do¬ 
vranno essere accompagnati da brevi note esplicative sul funzionamen¬ 
to e sulle applicazioni del programma; questo dovrà contenere, all'Ini¬ 
zio del listato, delle Rem indicanti la denominazione del programma, l'in¬ 
dirizzo ed il numero telefonico dell’autore. I programmi più interessanti 
(gli autori si assumeranno ogni responsabilità circa la originalità degli ela¬ 
borati inviati) saranno pubblicati, a cura del LIST CLUB, sulla rivista 
«LIST — Programmi per il tuo home computer» secondo gli spazi dispo¬ 
nibili. Con l’invio del programma i diritti di utilizzazione e di riproduzione 
dello stesso si intendono ceduti illimitatamente a LIST CLUB che ne farà 
uso divulgativo e scientifico. 
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Non si tratta di un gioco, ma di un programma che 
mostra la capacità grafica del vostro ORIC. 

Ci vogliono circa 15 minuti perchè l’esecuzione sia 
completata ma alla fine ciò che apparirà sullo schermo 
sarà appunto una fontana con un «effetto-acqua» mol¬ 
to bello. 


N.B. - Nel caso troviate qualche difficoltà nel caricare 
il programma, aggiungete: 

5110 FOR P = 44520 TO 48520 STEP 40: 

POKE P, 1 : NEXTP 
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50 NEXTG 

55 C.=C+3.5 :6=6+5 
60 GOTO30 
70 REH 
80 REn 
90 6=10 

100 *FORG=.75*-PITO0STEP.015 
110 IF6=55THENGOTO205 

120 CURSETC 105i-C] + CCOSCGn*( 2 i, 1 90+CSINCG) 

D*e, i 

130 NEXTG 

140 6=6 + 5 : C=C + 3.5 

150 GOTO100 

205 REM 

210 P1=44520 :P2=46120 
220 FORC=1T028 
230 Pl=Pli640;P2=P2+o40 
235 IFP1> =48520 THEnP 1=44520 
236 1FP2>=48520THENP2=44520 
240 P0KEP1,7:POKEPl+40,7:P0KEP1+80,7 
24 1 P0KE|p2, 7 :POKEP2 + 40,7 :POKEP2 + 80,7 
250 IFP1> =45760THENGOSUB1000 
255 IFP2>=45760THENGOSUB2000 

260 POKEP1,1 :POKEPl+40, 1 :POKEPl+80,1 

261 P0KEP2, 1 :POKEP2 + 40, 1 :POKEP2 + 80, 1 

265 IFP1>=45760TKENGOSUB3000 

266 I FP2> =45760THENGOSLIB4000 
270 NEXTC - 

280 GOTO220 
1000 REFI 

1010 P0KEP1 + 19, 1 :P0KEPl+59, 1 :P0KEPl+99, 1 
1020 POXEPl+23,7:POKEP1+63,7:POKEP1+103, 


I REFIF0NT6N6 
3 P6PER0 : INK1 

6 HIRES 

7 GOSUB5000 

10 PRINTCHRSC173 

II G0SUB5100 
14 REH 

20 6 = 100 : 6=10 

30 FORG=.25*-PITO-l*PISTEP-.015 
35 IF6=55THENG0TO70 

40 CURSETC 120-0 + CCOSCG)1*6, 190+CSINCG)) 
*B, 1 


7 

1030 RETURN 
2000 REFI 

2010 P0KEP2i19, 1 :P0KEP2 + 59 , 1 :P0KEP2 + 99 , 1 
2020 P0KEP2 + 23,7 :P0KEP2 + 63,7:POK£P2+103, 

7 

2030 RETURN m 

3000 REFI • 

3010 P0KEP1+23,1:P0KEP1+63,1:POKEP1+103, 

1 

3020 RETURN 
4000 REFI 

4010 P0KEP2+23,1:P0KEP2+63,1:POKEP2+103, 

1 

4020 RETURN 

5000 REFI £ 

5010 CURSET95,20,3:N$=" F0NT6N6" 

5020 F0R6=1TOLENCN$D :CH6R6SCCHID$CN*,6, 1 
11,0, 1 :CURFI0U7,0,0 :NEXT6 
5030 FORP=44520TO48523STEP40:POKEP,1:NEX 
TP 

5040 RETURN 
5100 REH 

5110 CURSET10, 190,3 :FILL10, 10,20 

5120 CURSET134,120,3 :DR6U-12,0, 1 

5130 DR6U2,20,1:GR6U0,30,1 

5140 DR6UI-5, 19, 1 :DR6U18,0, 1 :DR6UI-5,-19, 1 

:DR6U0,-30,1 

5150 DR6UI2, -20, 1 

5160 RETURN 
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Rubrica 


o 

Pianeta COMMODORE • 



Vogliamo costruire con voi una sche¬ 
da di espansione per il VIC - 20. 
Pensando quindi di far cosa gradita ai 
molti possessori di VIC - 20 pubblichia¬ 
mo di seguito il disegno dei due lati 
di una scheda madre che può ospita¬ 


re fino a 3 cartridges per il VIC - 20. 
l_a costruzione non richiede particolari 
accorgimenti basta munirsi di una pia¬ 
stra ramata doppia faccia, dei trasfe¬ 
ribili, dell’acido per circuiti stampati e 
di tre connettori SLOT. 


« 
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FASI DI COSTRUZIONE 

a) Dimensionare la scheda ad un mi¬ 
nimo di 11x15 

b) Fare una fotocopia dello stampato 
riportato su LIST 


c) Con la carta copiativa riportare i 
punti più importanti sulla piastra 

d) Costruire il disegno con i trasferibili 
sia per la facciata superiore che per 


quella inferiore (il pettine è possibile 
trovarlo presso un negozio di articoli 
tecnici) 

e) Immergere la scheda nell’acido per 
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COMMODORE 
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rimuovere la parte di rame in eccesso 

f) Pulire bene la scheda con la trielina 

g) Usate un piccolo trapano per fora¬ 
re (secondo il disegno) 

h) Controllare con un tester la conti¬ 
nuità delle piste, la massa verificando 
che non siano in cortocircuito tra di 
loro 

i) Effettuare dei ponticelli passanti dalla 
faccia inferiore a quella superiore e 
saldare 

I) Saldare ora i connettori 


m) Incollare sulla facciata inferiore 2 
distanziatori 

n) Inserire una cartuccia nella mother- 
board poi inserire il tutto nella porta di 
espansione del VIC - 20 (a macchina 
spenta) e buon lavoro! 


* Rimaniamo sempre e comunque a tua disposizione. 
Scrivici! - «LIST - programmi per il tuo home computer» 
Casella Postale 4092 ROMA APPIO 
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Serie MZ-700 


Tastiera di facile uso 

La tastiera è disposta come 
quella di una normale macchina 
da scrivere. Inoltre sono stati 
inseriti 4 tasti per spostare il 
cursore nelle quattro direzioni, 
due tasti per le correzioni ed il 
riposizionamento del cursore, ed 
i suddetti cinque tasti definibili 
per una maggiore funzionalità. 


Collegabile a 
qualsiasi televisore 


La Sharp presenta la sèrie MZ-700, una linea di nuovissimi 
Home Computers con design e funzioni d’avanguardia: 
utilizzano infatti una CPU ad alta velocità ed una ampiezza di 
memoria di 64 Kbytes RAM. Grazie alla loro flessibilità ed 
espandibilità, soddisfano le più svariate esigenze 
dell'hobbista, del professionista e dello studioso. 


Il modulatore RF, di serie, 
permette d’utilizzare come 
visore del Computer qualsiasi 
televisore sia in bianco e nero 
che a colori (escluso quelli con 
sistema SECAM). 


Tasti definibili per una 
facile programmazione 


Grande area di Grandi prestazioni 

memoria programmabile e alta velocità 


Sono cinque i tasti definibili ai 
quali si possono assegnare le 
dieci funzioni più 
frequentemente usate. 


La serie MZ-700 offre una 
capacità di programmazione di 
64 Kbytes RAM 


La serie MZ-700 impiega il 
microprocessore Z-80A (3,5 
MHz) che garantisce grande 
efficienza ed affidabilità 
operativa 


r 

—"\ 

concessionaria 

per 1 Italia 



MELCHONI 

V_/ 


Sene MZ-700 - Diagramma del sistema 
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Questo programma sfrutta completamente le capacità 
sonore dell’ORIC. Il brano musicale riprodotto è il fa¬ 
mosissimo Ragtime di Scott Joplin. 

Per quel che riguarda il comando MUSIC, alcuni si 
chiederanno perchè non usare dei DATA. La spiega¬ 
zione è semplice: mentre questi possono essere usati 


tranquillamente nel caso di un effetto sonoro ad «una 
voce», in questo listato dove ci troviamo di fronte ad • 
un effetto a «tre voci», un sistema di DATA avrebbe in¬ 
contrato qualche difficoltà di sincronizzazione; queste 
vengono superate invece dal comando MUSIC. Anche 
se in effetti è un po’ più noioso ribattere il listato. 


1 PRINTCHRSC17D 
10 REM THE ENTERTAINER RAG 
20 REM BY SCOTT JOPLIN 
30 REM 
50 REM 

60 S=18:Q=S*2:CR=S*4 
65 L=8 

70 C=J :CC=2:0=3:0D=4:E=5:P=6:f r F = 7;G=8:GG 
=9 :A=10:AA=11 :B=12 
75 REM 

80 REM TITLE PAGE 
90 REM 

100 CLS:PAPER0:INK5 

110 F0RX=1T09:PRINT:NEXT 

120 PRINTCHR$C27D ;"J";CHR$C27J;SPCC5 

);"SCOTT JOPLIN" 

130 PRINTCHR$C27D; J";CHR$C27D;“F“ ;SPCC5 
D"SCOTT JOPLIN" 

135 PRINT:PRINT 

140 PRINTCHRSC27J J";CHR$C27D; *C“ ;SPCC7 
.1 ; "THE ENTERTAINER RAG" 

150 PRINTCHR$C27D;“J";CHR$C27D;"B" ;SPCC7 
.1 ; "THE ENTERTAINER RAG" 

160 PRINT :PRINT:PRINT 
170 REM 

180 REM ::::: INTRODUZIONE ::::: 

190 REM 

200 MUSIC 1,5,D,L:MUSIC 2,4,0,L:PLAY3,0, 
X,Y:HAITS 

210 MUSIC 1,5,E,L:MUSIC2,4,E,L:WAITS:MUS 
IC1,5,C,L:MUSIC2,4,C,L:HA ITS 

220 MUSIC 1,4,A,L:MUSIC2,3,A,L:HAITQ:MUS 
IC1,4, B, L :MUSIC2,3,B,L:HA I TS 

230 MUSIC 1,4, G, L:MUSIC2,3,G,L:HAITQ 
300 MUSICI,4,0,L:MUSIC2,3,0,L:HAITS 
310 MUSIC1,4,E,L:MUSIC2,3,E,L:HAITS : MUSI 
C.1,4,C,L:MUSIC2,3,C,L:UAITS 


C1,3, E, L:MUSIC2,2,E,L:HA ITS 

360 MUSICI,3,C,L :MUSIC2,2,C,L:HAITS :MUSI 

CI,2,A,L:MUSIC2,1,A,L:HAITQ 

370 MUSICI,2,B,L:MUSIC2,1,B,L:HAITS :MUSI 

CI,2,A,L :MUSIC2,1,A,L:HAITS 

380 MUSIC1,2,GG,L : MUSIC2,1,GG,L:HAITS :MU 

SI CI,2,G,L:MUSIC2,1,G,L:HAITQ 


385 PLAY0,0,0, 0 :l=L-i-3 

390 HA ITQ : MUSIC1,4,G,L:MUSIC2,3,B,L:MBS I 
C3,0,G,L 

400 PLAY7,0,X,Y:HAITQ 
405 L=L-5 

410 MUSICI,3,D,L :MUSIC2,2,B,L:MUSIC3,2,G 
,L :HAITS :MUSIC1,3,DD,L:HAITS 





420 REM 

430 REM:: :: PRIMO DBL BAR:: :: 

440 REM 

445 IFP=1THENH=1 

450 MUSICI,3,E,L: MUSIC2, 2,C,L:MUSIC3,2, C 

,L:UAITS:MUSI CI,4,C,L:HAITS 

460 MUSIC2,3,C,L:MUSIC3,2,E,L:HAITS:MUSI 

C1,3,E,L:HAITS 

470 MUSICI,4,C,L:MUSIC2,2,G,L:MUSICI,3,G 
,L :HAITQ 

480 MUSIC 1,3,E,L:MUSIC2,3,C,L:MUSIC3,2,A 
A, L:HAITS:MUSIC1,4,C,L :HAITS 







490 REM 

500 MUSIC2,2,F,L:MUSIC3,1,F,L:HAITQ:MUSI 
C2,3,C,L :MUSI€3,2,A,L:HAITQ 
510 MUSIC2,2,E,L:MUSIC3,1,E,L:HAITS 
513 IFR=1THENRETURN 

516 MUSIC1,5,C,L:MUSIC2,4,E,L:HAITS:L=L+ • 
1 

520 MUSICI,5,D,L:MUSIC2,4,F,L:MUSIC3,2,G 
,L :UAITS :L=L+1 

530 MUSICI,5,00,L:MUSIC2,4,FF,L:HAITS:l= 


320 MUSICI,3,A,L:MUSIC2,2,A,L:HAITQ:MUSI 
CI ,3,B,L:MUSIC2,2,B,L:UAITS 
330 MUSICI,3,G,L:MUSIC2,2,G,L:HAITQ 
350 MUSIC1,3,0,L: MUSIC2,2,D,L:HAITS :MUSI 


L+l 

540 MUSICI,5,E,L:MUSIC2,4,G,L:MUSIC3,1,G 
,L:HAITS 

550 MUSICI,5,C,L:MUSIC2,4,E,L:HAITS:MUSI 
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C1,5,D,I_:MUSIC2,4,F,L:MUSIC 

3,2,G,L 

560 HAI TS AUSICI ,5,E,L:MUSIC2,4,G,L:ulAIT 
S:MUSIC3,1,G,I_:WAITS. 

570 MUSICI, a, B,L :MUSIC2,4,0, L :UI6ITS :MUSI 
Cl,5,D,l_:MUSIC2,4,F,LsMUSIC 
3, 2 > B > L 

580 UAITQiMUSICl,5,C,LsMUSIC2,*,E,LiMUSI 

C3, 2,C, L :ulfìITQ 

585 IFR=2ThENRETURN 

590 flUSIC3, 1 ,G,L :UAITQ MUSIC3,2, C, L :UAIT 
Q:l=L-2 

600 MUSICI, 3,Q,L ;MUSIC2,2,B,L:MUSIC3,2, 
Gì L :UAITS : MUSICI , 3, OD, L . UFI1TS 

610 R=1 iL=L—1 :G9$UB430 
615 WAITS 

620 L=L+1 AUSICI ,a,A,L -MUSIC2, *, C, L MUSI 
C3,2,QD,L;UAITSsl=L+1 

630 MUSICI, a, &, l :MUSIC2,3, G, L UBITS :L--L + 

« 

1 

640 MUSICI,4,FF,L ;MUSIC2,3, C F, L:MUSIC3,1 
,D,L:ulAITS 


650 MUSICI ,4,A,L:MUSIC2,3,A,l_:i4AITS:MUSI 
CI,5,C,L:MUSIC2,4,C,L;MUSIC 

3.2, FF,L 
655 WAI TS 

660 MUSICI,5,E,L:MUSIC2,4,E,l;U6ITS:MUSI 
C-3> 2,D,L:W6ITS 

670 MUSICI,5,D,L:MUSIC2,4,D,LsUAlTS:MUSI 
CI, 5,C,L:MUSIC2 ) 4,C,L: MUSIC 

3.2, A,L 

675 UAITS ^MUSICI,4,B,l ;MUSIC2, 3,4, L :ui6l T 
S 

680 MUSICI ,5,0,L:MUSIC2,4,F,L flUSIC3,2,B 

,L:UAITQ 

690 MUSIC3, 1 ,G,L :ulAl TQ : MUSI C-3, 1,4,L:UIAIT 
Q:L=L-1 -'MUSI CI, 3, D, L :MUSIC2 
, 2, B, L 

700 MUSIC3,1,B,L:U6ITS:l=L- 1 : MUSICI,3,00 
,LiWAITS 

710 R=2:GOSUB430 

720 MUSIC3, 2 , G, L :ulfìl TQ :MUSIC3, 3,C,L ìUIAIT 
Q 5PLAY3,0,X,Y 

730 MUSICI,5,C,L:MUSIC2,4,C,L :UAITS :MUSI 
CI , 5,0, L :MUS IC2,4, D, L :uli41 TS 



« 
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740 MUSIC3,2,C,L:PL6Y7,0,X, Y : AUSICI , 5, E, 
L:MUSIC2,4,E,L:UOITS 

750 MUSICI,5,C,l_:MUSIC2,4,C,L :W61TS :MUSI 


995 PL6Y7,0,X,Y 
1000 REM 

1010 MUSICI,4,G,L JMUSIC2,4,E,L :MUSIC3,1, 


C1,5,D,L:MUSIC2,4,D,I_:MUSIC 
3, 3, C, L 

760 UAITS:MUSIC1,5,E,L;MUSIC2,4,E,L:U6IT 
S:MUSIC3, 1,46,L:W6ITS 

770 MUSIC1,5,C,L:MUSIC2,4,C,L:W6ITS:MUSI 
CI,5,D,L:MUSIC2,4,D,L :MUSIC 
3, 3, E, L 

780 U161 TS : MUS I C I, 5, C, L : MUS IC2,4, C, L : UI61T 
S 

790 MUSICI,5,E,L SMUSIC2,4,E,L JMUSIC3,1,6 

,L:U!6ITS:MUSIC1,5,C,I_:MUSIC 

2,4,C,L 

800 U6ITS:MUSIC1,5,0,L:MUSIC2,*,Q,L:MUSI 


C,U :UI6I TQ 

1020 MUSIC1,4,6,L JMUSIC2,*,E,L:MUSIC3,2, 
C,L:W6ITS :MUSIC1,4,G,L :MUSI 
C2,4,E,L 

1022 IFK=1THEN1065 

1023 IFY=16NDR=1THEN1026 

1025 IFR=1THENRETURN 

1026 U6ITS 

1029 REM 

1030 MUSIC3, 1 , G,L :UJ6ITS :MUSIC1 ,*,E,L :MUS 
IC2,4,C,L:uJ6ITS 

1040 MUSIC1,4,F,L:MUSIC2,«,D,L:MUSIC3,3, 
C,L:W6ITS :MUSIC1,4,FF,L :MUS 


C3,3,F,L :W6ITS:MUSICI,5,E,L 

810 MUSIC2,4,E,L:U6ITSiMUSIC3, l,GG,L:uJ0I 

TS : MUSICI,5,C,L:MUSIC2,4, C, 

L :UI6ITS 

820 MUSICI,5,0,L:MUSIC2,*,0,L:MUSIC3,3,P 
,L :W6ITS 

830 MUSIC1,5,C,L:MUSIC2,4,C,L : UH ITS :MUSI 

C1,5,E,L:MUSIC2,4,G,L:MUSIC 

3, 1,G,L 

840 U6ITS:MUSIC1,5,C,L:MUSIC2,4, E,L:W6IT 
S : MUSICI,5,D,L:MUSIC2,4,F,L 
850 MUSIC3,3,C,L:W6ITS:MUSIC1,5,E,L:MUSI 
C2,4,G,L:ul6ITS 

860 MUSIC3, 1 , G, L : UJ61 TS : MUS IC1,4,3, L : MUS I 
C2,4,D,L:U6ITS 

870 MUSICI,5,D,L JMUSIC2,4,F,L:MUSIC3,2,B 
,L :U6ITQ 

880 IF2=1 Tl-ìEN 950 

890 MUSIC1,5,C,L:MUSIC2,4,E,L:MUSIC3,2,C 

,L:U6ITQ:MUSIC3, 1,G,L:UI6ITQ 

895 L=L-1 :MUSIC3, 1,6,L:UI6ITQ 

900 L=L-1:MUSIC1,3,D,L;MUSIC2,2,B,L:MUSI 


IC2,6,OD,L 
1050 U6ITS 

1055 IFR=16NDr=:THENK=l:GOTO 1000 

1.060 R=1 SG3SUB1000 
1065 W6ITS 

1067 IFX=1THENRETURN 

070 MUSIC3,1,G,L :U6ITS :MUSIC1,4,E,L :U6I 
TS 

1080 MUSICI,4,C,L :MUSIC2,3,E,L :MUSIC3,2, 
G, L :W6I TS : MUSICI, 3, G, L :u!6ITS 

1090 MUSICI,3,6,L:MUSIC2,1,F,L :MUSIC3,1, 
F,L:U6ITS : MUSI CI, 3, 8, L :U6I TS 
1100 MUSICI,4,C,L JMUSIC2,3,F,L 5MUSIC3,2 
, 6, L iW6 ITSs MUSICI,4,D,L;ul6ITS 

1111 MUSICI,4,E,L:MUSIC2,2,F,L :MUSIC3,2, 
F, L : W61 TS : MUS IC1,4 , D, L : UI61 TS 
1120 MUSIC1,4,C,L;MUSIC2,3,F,L :MUSIC3,2, 
GG, L :W61 TS : MUSICI, 4,0, L :UI6ITS 

1125 IFY=1THENRETURN 


C3,1,B,L:U6ITS 

910 MUSIC1,3,DD,L:U6ITS:R=0:2=1:l=L-2:G0 
IO 430 
940 REM 

950 REM SECONDO DBL B6R 
960 REM 
965 R=0 

967 IFH=1THENGOTO1550 

970 MUSIC1,5, C, L:MUSIC2,4, E,L:MUSIC3,2,C 
,L:W6ITQ:.1USIC3, 1, G, L+l :W6ITQ 


1130 MUSI Ci,3,G,L:MUSIC2,2,E,L:MUSIC3,2, 
E,L:W6ITS : MUSICI,4,E,L :U6lTS 

1140 MUSICI,4,F,L:MUSIC2,3,E,L :MUSIC3,2, 
G, L :U6I TS:MUSICI,4,G,L :W6ITS 

1150 MUSIC1,4,6,L:MUSIC2,1,G,L :MUSIC3,1, 
G, L :W6I TS : MUSICI ,4, G, L :UI6ITS 

1160 MUSICI,4,E,L:MUSIC2,3,E,L :MUSIC3,2, 


980 MUSIC3, 1, C, L+l :UI6ITS 

990 MUSIC.1,4,E,L:MUSIC2,4,C,L :UJ6ITS:PL6Y 
3,0,X, Y 

992 MUSICI,4,F,L:MUSIC2,«,D,L:U6ITS:MUSI 
CI,4,FF,L:MUSIC2,4,DD,L:U6ITS 


G, L :U16I TS : MUSIC 1,4, F, L : U6I TS 
1165 R=0 

1170 X=1:GOSUB1000 

1180 X=0 :MUSIC3,2,E,L:U6ITS:MUSICI, 4, G, L 
:U6ITS 
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1190 riusi CI ,4, A, L :nUSIC2,2,00, L ;AUSIC3, 2 

,DD,L:UAITS:AUSIC1,4,AA,L:U 

AITS 

1200 MUSI CI,4,8,L:AUSIC2,4,0,L:AUSIC3,2, 

D, L:UAITS:PLAY4,0,0,0:UAIT.2 

1210 PLAY7,0,0,0:UAITS JAUSIC3,2,G,L:UAIT 
S:PLAY6,0,X,Y:UAIT.2:PLAY7, 

0)0,0 

1220 AUSIC2,4, C, L :UAITS :f1USIC3,2,0, L :UAI 
TS MIUSICl,4,A,L :UAITS 

1230 MUSI CI ,4,FF,L:AUSIC2,3,C,L :AUSIC3,2 
, A, L :UIAI TS :flUS IC1,4,0, L :U1AITS 

1240 nUSICl,4,G,L:AUSIC2,3,B,L:MUSIC3,2, 
G,L:WAITQ 

1250 riusiC3, l,F,L:WAITQ:riUSIC3, 1 ,E,L:LIAI 
TS : AUSI CI, 4, E, L :AUSIC2,4 , C, 

L :UIAI TS 

1260 nUSICl,4,F ) L:(1USIC2 J 4 > 0,L:nUSIC3, 1 

0,L:UlAITS:nUSICl,4,FF,L:nUS 

IC2,4,00,L 

1270 UAITS:X=0:Y=1:G0SUB 1000 
1280 nUSIC1,4, C, L:AUSIC2,2,E,L;AUSIC3,2, 

E, L:WAITQ:nUSIC2,3,E,L:HUSI 
C3,2,G,L 

1290 UAI TQ : AUSIC3, 2, C, L :AUSIC2, 2,C,L :UAI 
TS AUSICI ,3,G,L:UIAITS 

1300 L=L -1 :l1USICl,3,FF,L:nUSIC2,3,E,L:nU 
SIC3,2,AA,L:UAITS:AUSIC1,3, 

G, L :UIAI TS 

1310 L=L -1 :nUSICl,4,C,L:riUSIC2,3,A,L:nUS 
IC3,2,F,L:UAITQ:PLAY3,0,X,Y 
:UAIT.2 

1320 PLAY7,0,X,Y:AUSICI,3,A,L:AUSIC2,3,F 
,L :WAITS : AUSIC1,4,C,L:UAITS 
1330 nUSIC2,3,0O,L:'1USIC3,2,FF,L :WAITS:d 
USICI, 3, A,L:UAITS:PLAY1,0,X 
,Y:UAIT.2 

1340 PLAY7, 0 , X, Y :P1USICi , 4, C, L :UIAI TS :riUSI 
C1,3,A,L:UAITS 

1350 MUSICI ,3,G,L:nUSIC2,3,E,L:nUSIC3,2, 
G,L:WAITS:t1USICl,4,C,L:WAlTS 

1360 PLAY 1,0, X, Y :UAIT. 2 :PLAY7, 0, X, Y :(1USI 

C1,4,E,L:UAITS:AUSICI,4,G,L 

:UAITS 

1370 PLAY 1,0, X, Y :WAIT.2:PLAY7,0,X,Y : LIA IT 
S : MUS ICl,4,E,L:ulAITS 

1380 PLAY 1 ,0, X, Y :UAIT.2 :PLAY7,0,X, Y :nUSI 

C1,4,C,L:UAITS:AUSIC1,3,G,L 

:WAITS 

1390 AUSICI,3,A,L:AUSIC2,3,FF,L:AUSIC3, 2 
,D,L:WAITQ:PLAYi,0,X,Y:WAIT 


. 2 

1400 PLAY7,0,X,Y:AUSIC1,4,C,L:UAITQ:AUSI 

C. 1,4,E,L :(1USIC2,3,F,L:nUSIC 
3, 1, G, L 

1410 HAI TS :f1USICl , 4,0, L :UAI TS :MUSIC3, 1, B 
,L : UAITS : AUSIC1,4,C,L:AUSIC 
2,3, E, L 

1420 UAITS:AUSIC3,2,C,L:UAITQ:AUSIC3,1,G 
,L :UAITQ 

1430 IFP=17HEN1500 

1440 AUSIC3,1,E,L :UAITS:AUSIC1,4,E,L:AUS 
IC2,4,C,L :UAITS 

1450 AUSICI,4,F,L:AUSIC2,4,0,L:AUSIC3,1, 

D, L:UAITS: AUSICI,4,FF,L 

1460 AUSIC2,4,OD,L :UAITS 

« 

1470 P=1 :K=0:R=0:Y=0 :X=0 ;L=L + 2:GOSUB1000 
1500 AUSIC3,1,C,L :WAITQ 
1505 X=0:K=0:Y=0:R=0 

1507 PLAY1,0,X,Y:AUSI Ci,3,0,L:UAITS:AUSI 

C1,3, DO, L:UAITS: p LAY7,0, X, Y 

1510 IFH=0THENL=L-1:GOTO430 

1550 AUSICl,5,C,L : AUSIC2,«,E,L:AUSIC3,2, 

C,L:UAITQ :AUSIC3, 1,G,L:UAITQ 

1555 PLAY4,3,X,Y:UAIT.2: p LAY7,0,X,Y:AUSI 
C3,1,C,L:UAITQ 

1560 PLAY0,0,0,0 :UAI7Q: p LAY7,0,X,Y 

1600 REA RIPETIZIONE 

1601 IFU=1THENU=1 

1610 AUSICI ,3, F,L : AUSI C.2,3,0, L:AUSIC3, 1 , 

F,L:UAITQ: AUSICI,3,E,L:AUSI 

C2,3,CC,L 

1620 AUSIC3,2,A,L:UAITS:AUSIC1,3,P,L:AUS 
IC2,3,0,L:UAITS 

1630 AUSIC3,1,A,L :UAITS:AUSICI,3,E,L:AUS 
IC2,3,CC,L :UAITS 

1640 AUSICI,3,F,L:AUSIC2,3,0,L:AUSIC3,2, 
A,L :UAITQ 

1645 AUSIC3,1,F,L: p LAY4,0,X,Y :UAITS 
1650 AUSICI,3,A,L:AUSIC2,3,F,L: p LAY5,0,X 
,Y:UAITS 

1660 PLAY7,0,X,Y: AUSICI,4,D,L:AUSIC3,2,A 
,L:UAITS : AUSICI,3,A,L :UAITS 
1670 AUSIC1,4,C,L : AUSIC2,1,A,L:AUSIC3,1, 
A,L:UAITS: AUSICI,4,0,L:UAITS 

1680 AUSICI,4,C,L : AUSIC2, 2, A, L :AUSIC3,2, 
F, L:UAITS:AUSICI,3,A,L :UAITS 

1690 AUSICI,3, G, L:AUSIC2,3,E,L:AUSIC3,2, 
C,L :UAITQ 

1700 AUSICI,3, p F,L :AUSIC2,3,0D,L : 1USIC3, 

3,C,L:UAITS: AUSICI,3,G,L 

1710 AUSIC2,3,E,L:UAITS : AUSIC3,1,G,L:UAI 
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TS:MUSICI,3,FF,L:MUSIC2,3,0 

D, L :UAITS 

1720 MUSICI,3,G,L:MUSIC2,3,£,L:MUSIC3,3, 
C,L :UIAITQ 

1730 MUSIC1,2,C,L:MUSIC2,2,C,L:MUSIC3,2, 
C,L :WAITS :MUSI i, 4,C, L :UIAITS 

1740 MUSIC1,4,F,L:MUSIC2,3,G,LHMUSIC3,3, 

C, L :WAITS :MUSIC., 4, C, L :ulAI TS 

1750 MUSICI,4,0,L :MUSIC2, 1, G, L:MUSIC3,1, 
G,L :UIAITS :MUSICi, 4 , E, L :UIAI TS 

1760 MUSIC1,4,D,L:MUSIC2,3,C,L:MUSIC3,2, 

E, L : '-A I TS : MUS IC1,4, C, L : UIA I TS 

1765 IFU=1THEN G0T01925 

1770 MUSICl,4,D,L:MUSIC2,3,8,L:MUSIC3,1, 

G,L :WAITQ 

1780 MUSICI,4,CC,L:MUSIC2,3, AA, L:MUSIC3, 
2,G,L:UAITS:MUSIC1,4,D,L 
1790 MUSIC2,3,B,L:UAITS:MUSIC3,1,B,L:UIAI 
TS:MUSICI,4,CC,L:MUSIC2,3,A 
A, L :UiAI TS 

1800 MUSIC1,4,□,L:MUSIC2,3,8,L:MUSIC3,2, 
G,L :UAI7Q 

1810 MUSICI,1,G,L:MLSIC2,1,G,L:MUSIC3,1, 
G,L :UAITS:MUSIC1,4,F,L:UIAITS 

1820 MUSICI,4,A,L:MUSIC2,3,8,L:MUSIC3,2, 
G,L :UAITS ; MUSICI, 4,F,L: HAITS 

1830 MUSICI,4,G,L:MUSIC2,2,0,L:MUSIC3,2, 

D, L:WAITS:MUSIC1,4,A,L :UAITS 

1840 MUSICI,4,G, L:MUSIC2,3,B,L:MUSIC3,2, 
G, L :WAI TS :MUSIC1,4 , F, L :UAI TS 

1850 L=L + 2:MUSIC1,5,C,L:MUSIC2,3,FF,L :MU 
SIC3,2,DD,L:UIAITS 

1860 PLAY6,0,X,Y :U1AIT.2:PLAY7,0,X, Y:UAITS 

# 

1870 PLAY0,0,0,0:WAIT.2:PLAY7,0,X,Y:UAIT 
S*3 :PLAY0,0,0,0 :ulAITS 

1880 MUSICI,4,A,L:PLAY7,0,X,Y:WAITQ:MUSI 
CI,4,G,L:MUSIC2,3,C,L:MUSIC 
3,2,E,L 

1890 UIAITQ:L=L-3:PLAY1,0,X, Y :MUSIC1,3, G, 
L:uiAITS:MUSICì, 3,E,L :WAITS 
1895 MUS IC1,3, G, L : UIAIT Q : MUS IC1,3, E, L :.UIA I 
1Q:MUSIC2,3,D,L:MUSIC3,1,F,L 

1900 IFU=0THENPLAY7,0,X,Y::U=1: GOTO 1600 
1925 MUSIC 1,3,A,L:MUSIC2,2,F,L:MUSIC3,1, 

F, L:UAITS:MUSIC1,3,GG,L :UAITS 


1930 MUSICI,3,A,L:MUSIC2,2,0,I_:MUSIC3, 1, 
D,L:UAITS sMUSICl,4,G,L :MUSI 
C2,3,A,L 

1940 UAITS :MUSIC3,1,E,L :WAITS:MUSICI,4,F 
,L :UIAITS :MUSIC3, 1,F,L:UAITS 
1950 MUSICI,4,C,L:UAITS;MUSIC1,4,E,L:MUS 
IC2,3,G,L :MUSIC3,1,G,L;UAITS 

1959 MUSICI , 4, OD, L :UIAITS :MUSIC1,4, E, L :MU 
SIC2,3,E,L:MUSIC3,2,G,L :UAITS 

1960 MUSICI,4,A,L:UAITS:MUSIC2,3, OD, L:MU 
SIC3,2,FF,L 

1965 U1AI TS ^MUSICI , 5, C, L : WAI T S ; MUS IC1,4, G 
,L :MUSIC.2,3,E,L:MUSIC3,2,G, 

L JUIAITS 

1968 MUSICI,4,E,L:UAITS:MUSIC1,4,C,L:MUS 
IC2,3,FF,L:MUSIC3,1,A,L ;UAITQ 

1.970 PLAY4,0,X,Y:UJAIT.2:MUSIC3, 1,D,L:PLA 

Y7,0, X, Y : UIA I TQ 

1975 MUSICI,4,E,L:MUSIC2,3,F,L:MUSIC3,1, 
G, L : UIA I TS :MUS IC1,4,0, L : UIA I TS 

1980 MUSIC3, 1,B,L : UAITS : MUSIC1,4,C,L:MUS 
IC2,3,E,L :UAITS=MUSIC3,2,C, 

L :UJAITQ 

1983 IFTY=0THEN 1986 ELSE 1993 

1986 PLAY 1,0, X, Y :MUSIC1,3, G, L :ulAITS:MUSI 

C1,3, E, L :UIAI TS iMUSIC1,3, G, L 

:UAITQ 

1990 MUSICI,3,E,LJUAITQ:TY=i:U=0:U=0:PLA 
Y7,0,X,Y :G0T01600 
1993 L=L+1 

1995 MUSIC3,1,G,L:UAITQ :L=Lfi:MUSIC1,5,C 
,L:MUSIC2,4,E,L:MUSIC3,1,C, 

L :UJAITQ 

2000 PLAY0,0,0,0 

2001 PRINTCHR$ C17j 
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Io oggi ho scelto MPFI. 
E sono soddisfatto. 


MPF II1 ’utilizzo dappertutto. È 
leggero, compatto, grande come 
una agenda. Con lui oggi muovo 
i p rimi passi nell’affascinante 
mondo dell’informatica. Sono si¬ 
curo che insieme a me crescerà 
e sarà capace di aiutarmi do¬ 
mani nel mio lavoro. Un sempli¬ 
ce video-gioco, un valido home 
computer, un indispensabile 
personal? Lo decido io! E questo 
mi soddisfa. 






MPF II ha una struttura molto com¬ 
patta e si avvale di soluzioni hard¬ 
ware originali ed espandibili. La più 
immediata è la tastiera esterna la 
cui connessione all’unità centrale è 
molto semplice. 

Inoltre una serie di opzionali (disk 
drive, stampanti termiche, stampan¬ 
ti su carta normale, sintetizzatore 
vocale, monitor di formati diversi e con diversi tipi di fosfori, interfaccia seriale RS232C 
joy-stick, generatore di suoni ed altro ancora) con i quali trasformi il tuo home computer 
in un personal professionale. Vuoi potenziare il tuo sistema informativo? Non devi rico¬ 
minciare da capo. Sono tanti i connettori sui lati dell’MPF II che permettono di espanderlo 
fino a configurazioni estremamente potenti e già tutte attuabili. 

Scegli tu! 

Così hai la possibilità di divertirti, di studiare, di imparare il linguaggio Basic, sempre più 
importante. MPF II è accompagnato dai manuali d’uso e dal manuale di programmazione 
Basic tutti in lingua italiana. Un comodo ausilio di lavoro. 

Il software è ampio e completo nelle tante cassette, nei dischi, nelle cartucce che vengono 
fornite insieme ad MPF II. È inoltre possibile accedere alla vasta bibliografia di program¬ 
mi esistenti per la sua compatibilità di Basic...! MPF II, non scordiamolo, è dotato della ta¬ 
stiera incorporata e della scheda colore già installata. Tutto viene soddisfatto, i tuoi desi¬ 
deri, i tuoi giochi, le tue necessità, i tuoi lavori, la tua creatività. Pensa a qualcosa di 
grande per te, senza credere di sognare. MPF II è piccolo, leggero, ma ha grandi capacità 
di memoria e d’uso. Noi lo chiamiamo ‘Tinvestimento espandibile”. E tu? Sceglilo e sarai 
al centro dell’attenzione di tutti. 

Nella sua simpatica e morbida borsa da viaggio, insieme con tutti i componenti del siste¬ 
ma, viene sul lavoro, toma a casa, ti aiuta nello studio. Insomma MPF II è una scelta che 
ti dà soddisfazione, un sicuro investimento produttivo. 


* - 


CPU 
E 6808 


ROM 

16K Bytes 
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I 



Il mio primo ed unico computer 





Caratteristiche 


1/ L’unità centrale ha una tastiera al- 

fanumerica di 49 tasti multifunzio- 
ne con i quali c'è la possibilità di ge- 
nerare 153 codici ASCII. 

J A f : È possibile il completo controllo del 

* m — cursore tramite 4 appositi tasti. Lo 

f schermo visualizza 24 righe per 40 

.nnsp^ colonne. Lavora con un set di carat- 
5y — «, teri ASCII maiuscolo e caratteri gra 

/Jr : fìci speciali (50) raggiungibili dalla 

*: tastiera tramite il CTRL-B. 

-qgrr *"_•«?,.... " <^|r È disponibile una grafica contempo- 

^ ranea in 2 risoluzioni, high con 

^ 280x192 punti e low con 40x48 pun- 

ti, a colori. È possibile miscelare te- 

r —a--— “ ^^7 Sto e grafica. 

V Wiyg flsg^ n microprocessore è il 6502. Sulla 

ROM è disponibile l’interprete Basic 
ed un monitor con disassembla¬ 
tore per programmare anche in linguaggio macchina. L’altoparlante è presente. 

L’unità centrale ha ben 64 K di memoria RAM dinamica e 16 K ROM. L’apposito slot porta 
all’esterno il BUS dati e indirizzi oltre ai segnali di controllo di tutto il computer. È possibi¬ 
le collegare interfacce e periferiche di tipo più svariato. L’unità centrale viene già fornita 
con un interfaccia parallela per stampanti entro contenuta. 






MICRO - PROFESSOR 

investimento esDandibile 



l_l 


C 


BAM 

64K Bytes 

• 

1 Scrivici per ulte* 

■ riori informazio- 

a 

Nome 

Cognome 


| ni e per sapere 
■ dove puoi trova- 

wUKliUUiU -- 

Indirizzo • 

Interprete Basic 
più di 90 
istruzioni 

1 re MPF II vicino 
. a casa tua. 


| PS 83 

■ 

— 


I 

■ 

I 

I 


niniTCìs 

UIUII Lf\ 


campuTER 



Via Valli, 28 - BAGNOLO IN PIANO (R.E.) 
Tel. (0522) 61623/4/5/6 
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Vieni dal Mago Indovino. Ecco.... siediti vicino! 

Ti predirà l’Oroscopo del mese: fortuna, lavoro, amore e... 
spese! ! 


1 

HOME : 

CLEAR : 

GOSUB 

189 

2 

HOME : 

CLEAR : 

GOSUB 

162 


3 TEXT : HOME : CLEAR : GOSUB 37 

4 FRINT "DATI PERSONALI:" 

5 PRINT : INPUT "COME TI CHIAMI? ";J$ 

% 

6 PRINT 

7 INPUT "ANNO DI NASCITA: ";A: PRINT 

8 INPUT "MESE DI NASCITA: ";B: PRINT 

9 INPUT "GIORNO DI NASCITA:";C: PRINT 

10 HOME : PRINT "DATI PER LA RICHIEST 
A DELL'OROSCOPO:": PRINT 


11 

INPUT 

"ANNO: 

";D: PRINT 

12 

INPUT 

"MESE: 

"5 E: PRINT 

13 

INPUT 

"GIORNO: 

";F: PRINT 

14 

HOME : 

VTAB (23): 

PRINT "NON DISTU 

RBARE STO 

ANALIZZANDO 

I DATI!" 

15 

I> 

il 

I> 

+ B + C + E 

- 1900 + 1 

16 

GOSUB 

33 


17 

IF Al 

< 1 OR Al > 

9 THEN HOME : P 


L’OROSCOPO 



INT "DATI ERRATI": GOTO 194 
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— 


18 

GOSUB 41 




44 

PRI NT 

: PRINT "PROFILO NUMEROLOGIC 

19 

GOSUB 22 




0" 



20 

PRTOFF : 1 

30SUB 

194 


45 

FOR I 

= 1 TO 2000: NEXT I 

21 

END 




46 

PR I NT 

: PRINT : PRTOFF 

22 

IF Al = 1 

THEN 

GOSUB 

51 

47 

HOME 


23 

IF Al = 2 

THEN 

GOSUB 

61 

48 

IF R = 

2 THEN PRTON 

24 

IF Al = 3 

THEN 

GOSUB 

68 

49 

RETURN 


25 

IF Al = 4 

THEN 

GOSUB 

83 

.50 

PR I NT 


26 

IF Al = 5 

THEN 

GOSUB 

99 

51 

PRINT 

"MESE ADATTO ALLE INIZIATIVE 

27 

IF Al = 6 

THEN 

GOSUB 

116 

t 

II 



28 

IF Al = 7 

% 

THEN 

GOSUB 

128 

ET'-* 

Zìjl. 

PRINT 

"E' POSSIBILE REALIZZARE": 

29 

IF Al = 8 

THEN 

GOSUB 

140 

PRINT "NUOVE IDEE, PRENDERE" 

30 

IF Al = 9 

THEN 

GOSUB 

153 

ITT *T 

PR I NT 

"IN ESAME PROPOSTE ANCHE PER 

31 

RETURN 




LUNGHI" 



IF AC = 6 

THEN 

GOSUB 

92 




33 

Al = INT 

(Al / 

10) + 

( (Al / 

10) 

«r-rr 



T kit ( a i / i \ ^ ir» 



42 IF R = 2 THEN F'RTDN 


43 PRINT J$;" , ECCO IL TUO" 
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54 F : 'RINT "VIAGGI DA CUI POTREBBERO SC 
ATURIRE" 

55 PRINT "OCCASIONI FAVOREVOLI." 

56 PRINT "OCCHIO PERO' A NON ESSERE" 


57 PRINT "INGIUSTIFICATAMENTE COCCIUT 


I" 

58 PRINT " 

59 RETURN 

60 PRINT 


64 PRINT " 
MATICI E" 

65 PRINT " 
EVENIENZA." 

66 RETURN 

67 PRI NT 


E INDOLENTI" 

61 PRINT "EVITANDO SCORAGGIAMENTO, MA 
LINCONIA," 

é 

62 PRINT "PETTEGOLEZZI, INVIDIA E GEL 
OSI A- IL MESE" 

63 PRINT "SI PRESENTA ADATTO A NUOVE 
CONOSCENZE" 

BISOGNA ESSERE SEMPRE DIPLO 

PRONTI A FRONTEGGIARE OGNI 

68 PRINT "PERIODO IDONEO PER AUMENTAR 
E LA PROPRIA" 

69 PRINT "POPOLARITÀ', FAVOREVOLE A D 
IVERTIMENTI," 

70 PRINT "INVITI E FESTE." 

71 PRINT "E' UN MESE DA USARE BENE PE 
R FAR VALERE" 

72 PRINT "PERSONALITÀ' E INTELLIGENZA 


II 



73 PRINT "QUESTO MESE VA TENUTO D'OCC 
HIO IL" 
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MPF II 


74 FRINT "PORTAFOGLIO: ATTENZIONE ALL 
E SPESE" 


75 PRINT "ECCESSIVE." 

76 PRINT "SIETE PARTICOLARMENTE PREDI 

SPOSTI" 

77 PRINT 

78 PRINT 
RECARE" 

79 PRINT 
RO" 

81 RETURN 

80 PRINT 

82 PRINT 

83 PRINT "E' IL MESE ADATTO PER FARE 
I" 

84 PRINT "LAVORI NOIOSI DA TROPPO TEM 


"VERSO IL PIACERE FISICO." 
"DOVETE FAR ATTENZIONE A NON 

"OFFESA AD ALTRI CON IL VOST 

"COMPORTAMENTO." 


85 PRINT "RIMANDATI A CAUSA DELLA VOS 
TRA" 

86 PRINT "PIGRIZIA." 

87 PRINT "IN QUESTO PERIODO I FATTI V 

» 

ALGONO MOLTO" 

« 

88 PRINT "PIU' DELLE PAROLE, ED E' PO 
SSIBILE" 


89 PRINT "TROVARE LA FORZA PER CORREG 
GERE" 

90 PRINT "SITUAZIONI DIFFICILI, SOPPO 
RTARE" 

91 . PRINT "PERSONE SGRADITE E SUPERARE 



ESAMI" 


- CONTINUA - 













Compilate insieme al vostro MPF II la schedina 
dell’Enalotto. 

• BUONA FORTUNA! 






1 DATA IO 

2 DATA 4.52312331E+12 

3 DATA 4.53231321E+12 

4 DATA 3. 34333221 E-»-12 

5 DATA 5.42331213E+12 

6 DATA 6.36211313E+12 

7 DATA 4.45323322E+12 

8 DATA 4.34131122E+12 

9 DATA 3.33333213E+12 

10 DATA 3.32323122E+12 

11 DATA 4.62111323E+12 

12 GQSUfì.139: GOSUB 110 

13 DIM C$(20) 

14 C*(l) = "BARI " i C$ (2) ■= "CAGLIARI "iC 
*(3> « "FIRENZE":C*(4) * "GENOVA" 

iC$(5) - "MILANO" 

15 C*<6> * "NAPOLI":C$(7) = "PALERMO": 
C*<8) «= "ROMA" : C$ (9) ■ "TORINO" iC 
*<10> = "VENEZIA" 



16 Cidi) = "NAPOLI II": C$ (12) - "ROMA 
II" 

17 HOME : VTAB 2: INVERSE : HTAB 13« PRINT 
"SCHEDINA ENALOTTO": NORMAL : VTAB 

5: PRINT " <1> -GENERAZIONE SCHED 
INA" 

18 PRINT " ": PRINT " <2> -PREPARAZIO 
NE DATI DI CONFRONTO": PRINT " "t 

1 PRINT " ": PRINT "QUALE ? GET V*: PRINT CHR» (13) 

19 IF V$ < > "1" AND V» < > "2" THEN 17 

20 IF V* - "2" THEN 77 

21 HOME :FW « 1:NS - 1 

22 VTAB li PRIJvlT "SCHEDINA ENALOTTO" 

23 VTAB 5 

24 D = O 

25 FOR A * 1 TO 12 

26 Q = INT (3 * RND (1)> ♦ 1 

27 IF Q = 1 THEN R* * "1" 
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lf 


s b 




pplN T 


M 




K 


lf * 


lf * 


Zb 

;** 

37 

;** 

39 

*** 
3^ 
;R* 
AO 

II • 


* 7 


-ihen 


prin t 


pf>E 


epr® 


•I 


pO^G 


II 


S 9 


1H9N 


pplN T 


II 


lf * 


TH9N 


ppl^ T 


l« 


t op' n0 


II 


lF ft 


IO 


tHEN 


pRl^f 


II 


venti 1 * 


Al 

i»• p$ 

42 


lf ^ 


il 


th£N 


P pi^ T 


tt M^f QUl 


H 


lf * 


=* 1^ 


THe^ 


pplN7 


II 


poti^ 


U 


.«. R* 


A3 ^° AS NS , ***** 

H TftB l 1 g # 

,f R* ‘ e = 2EV- 

, Ri - •>• . ,» 

u "■ _ .,. wot • - 

lF R * * r = 6 

„ i f* eN , e i 

A _ IP * = - » B / * E 

re b * 

A9 


65 FOR I = 1 TO ND 

66 READ X 

67 IF D = X THEN GOTO 15 

68 NEXT I 

69 FOR H = 1 TO 500 

70 NEXT H 

71 IF FW » 1 THEN FW = 0 

#. 

72 NS = NS + 1: IF NS < =6 THEN VTAB 5: GOTO 24 

73 VTAB 22s FRINT "ECCO IL MIO PRONOS 
TICO !" 

74 HC 

75 PRINT " "« PRINT "SE VUOI CONTINUA 

RE PRÈMI UN TASTO ";: GET W*: PRINT CHR* (13): GOTO 17 

76 END 


± 
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77 


78 D 



Rt 


REM 
= 0 
HOME 

FOR A *= 1 TO 12 
PRINT Ct(A); TAB( 



INPUT 






82 

IF 

Rt 

= Il 

1" 

THEN 

B 

■ 

1E12 

83 

IF 

Rt 

S 11 

2" 

THEN 

B 

- 

2E12 

84 

IF 

Rt 

— Il 

X" 

THEN 

B 

ss 

3E12 

85 

IF 

Rt 

s 11 

1" 

THEN 


GOTO 89 

86 

IF 

Rt 

a 11 

2" 

THEN 


GOTO 89 

87 . 

IF 

Rt 

S M 

X" 

THEN 


GOTO 89 

88 

GOTO 

81 







89 

IF 

A 

= 1 

THEN 

C 

= 

B 


90 

-JF 

A 

* 2 

THEN 

C 

= 

B 

/ 1E1 

91 

IF 

A 

= 3 

THEN 

C 

= 

B 

/ 1E2 

92 

IF 

A 

= 4 

THEN 

C 

SS 

B 

/ 1E3 

93 

IF 

A 

* 5 

THEN 

C 

« 

B 

/ 1E4 

94 

IF 

A 

= 6 

THEN 

C 

* 

B 

/ 1E5 

95 

IF 

A 

= 7 

THEN 

C 

= 

B 

/ 1E6 

96 

IF 

A 

= 8 

THEN 

C 

- 

B 

/ 1E7 

97 

IF 

A 

= 9 

THEN 

C 

8 

B 

/ 1E8 








98 IF A * IO THEN C » B / 1EO 

99 IF A * 11 THEN C = B / 1E1 

100 IF A » 12 THEN C * B / 1E2 

101 D = D + C 

102 NEXT A 

103 PRINT " " 

104 PRINT "ANNOTA QUESTO NUMERO: RAPP 
RESENTA": PRINT "LA SCHEDINA CHE 

HAI APPENA INTRODOTTO" 

105 PRTON 

106 PRINT " PRINT D 

107 PRTOFF 

108 GOTO 75 

109 END 

110 TEXT : HGR 

111 AB « 0 

112 SC = 5:A* = "DIGITEK":MM = 0:X =5 
:Y = 40: GOSUB 125 

113 SC « 2:At = "SOFTWARE PER":MM = 0: 
X = 5:Y = 120: GOSUB 125 



123 : 

124 : 

125 MA = - 31 : MI = 1 

126 AB = AB + 1 

127 IF AB < 3 THEN HCOLOR 1 

128 IF AB > 3 THEN HCOLOR 5 

129 ROT = 0: SCALE= SC 

130 POKE 49234,0 

131 FOR I = 1 TO LEN <At> 

132 IF MM = 0 THEN GP = MA: GOTO 134 

133 GP = MI 

134 CR = ASC ( MIDt (At,I,l>> + GP 

135 FOR K 3 1 TO SC 

136 DRAW CR AT X + (I— 1) * 8 * SC,Y 

-*• K 

137 NEXT : NEXT 

138 RETURN 

139 HOME 

140 POKE 232,0: POKE 233,64 

141 RETURN 

142 PRINT "PER CONTINUARE PREMI UN TA 
STO": GET Ut: PRINT CHRt (13): RETURN 


114 SC = 2:At = "MICROPROFESSOR II" :MM 
= 0:X = 5:V = 158: GOSUB 125 

115 FOR II = 1 TO 2000: NEXT II 

116 TEXT : .HGR 

117 SC = 3:At = "PRONOSTICO":MM = 1:X = 5:Y » 30: GOSUB 125 

118 SC * 4: At = "ENALOTTO" : MM =» 0: X * 

5: Y =» 65: GOSUB 125 

119 SC = 2:At = "COPYRIGHT 1983" :MM = 

0: X =. 5:Y - 154: GOSUB 125 

120 SC = 2:At * "BY ALDO DIX":MM * O:X 
- 25: Y * 174: GOSUB 125 

121 FOR II * 1 TO 2000: NEXT II 

122 TEXT : HOME : RETURN 
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« 



235....318....612.! 

Quale sarà il numero che il tuo VIC tiene gelosamente nascosto? 
Hai solo dieci tentativi a disposizione per indovinarlo. 

Affina la tua abilità e poi sfida anche i tuoi amici. 

NERO = numero e posizione indovinati 

ROSSO = numero indovinato ma non in posizione corretta 


0 RUM 

10 FRINT"3" 

30 FQR 2*1 TO 3 

40 A < Z) = INT < RND d)#9)+1 

50 NEXT Z 

60 IF FK1)=fì<2>OR Ad>=A<3>0R FK2>*FK3> THEN 30 
70 D*100*fì<l>+10#fi<2>+fì<3> 

80 FQR C=1 TO 10 
90 FRINT"INDOVINA ";C; 

95 INPUT X 
100 B<1)*INT<X/100> 

110 B<2>*INT<<X-100#Bd)>/10> 

120 B<3) ss X-100#B< 1 >-10#B<2) 

130 IF D=X THEN 360 
150 H=0 : W=0 
170 FOR E=1 TO 3 
180 IFfì<E)OB<E) THEN 210 
190 N=N+1 
200 A(E>=0 
210 NEXTE 
220 F0RF=1T03 
230 IFfì(F>=0THEN 280 
240 FOR E=1T03 
250 IFB<F>OA<E> THEN 270 
260 W=W+1 
270 NEXTE 
280 NEXTF 

290 A(1>=INT<D/100> 

300 A<2> = INT<(D-100#A<1>>/10> 

310 A<3>=D-100ifAd>-10*A(2> 

320 FRINT"PUNTEGGIO" 

325 FRI NT"*".: N; "NERI & ; W; "ROSSI " 

330 NEXT C 

340 PRINT "IL NUMERO ERA",Ad>;A<2>;A(3> 

350 END 

360 FRINT"COMPLIMENTI ! ! !" 

370 FRINT"HAI INDOVINATO IN";C;"MOSSE" 

380 END 
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Dovete cercare di far attraversare la strada a quante 
9 più rane possibili, evitando che vengano investite. 



















Struttura programma 


ÌOO v* 


iffl 05 K) X4= M 


Linee 

100-170, 3000-3060 

300-360 

500-530 

510-650 

550-560 

700 

710-910 


inizio 

PRINT rana 
alto, basso o laterale 
movimento rana 
aggiornamento schermo 
aggiornamento punteggio 
movimento oggetti 


1 IO 
120 
130 

140 

150 

160 

170 

300 

310 

320 

330 

340 

350 

360 


POKE 36879,14: PRINT 
FOR 1*1 TO 22: PRINT 
PRINT " E) ® H * 

PRINT " m £3 Zri M * A "i* NEXT 
PRINT - £? ei [fl [fi HJ-j 
FOR 1*1 TO 22: PRINT - SD i—" i * 
F**" B □ ■ □ 19 II II 0 B S ,<: 
S»0 

FOR 1*0 TO 4« P <I )=325 C <I> *0 = 
SOSUP 30005 TI*«"000000" 

X«9» Y»20 

PRINT LEFT4<Y4,Y*1 ) LEFTf<X4,X> 
IF FR=1 THEN 350 
PRINT LEFTK Y*,23> 5 
FOR 1*1 TO FR-1: PRINT ’ H L3 C 
IF FR*5 THEN 360 
FOR 1=1 TO 5-FRs PRINT “ A 4 * 


H H H II H K B H B B H 

"5 SC*768C>: CO* 38400 

"□BtfiBMa’» FR-5 
" SD P"" » * NEXT 
FOR 1*1 TO 4s 


XT 

DIN P < 4 ),C < 4)s 


XT * 


F % 


G * "I : NEXT: 


A t 


5 NEXT 


Variabili 


FOR V*0 TO 
GOTO 700 


2s IF TI < 300 THEN POKE 198,05 


FR = num. delle rane 

F$ = disegno rana 

X,J = posizione attuale della rana 

DX.D = prox. posizione della rana 

S = punteggio 

C (0...4) = P (0...4) = sfondo 




Comandi: 

W - alto 
D - destra 
A - sinistra 
X - basso 
E - alto/destra 
C - basso/destra 
Z - basso/sinistra 
Q - alto/sinistra 
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500 

52° 

5*° 


700 

t)B ** 

A* 

OB 




OR 


O x<o 


OB 


5*° 
5^ 
660 
670 

580 

59 O 


1F ^ 
pO* £ 


o>* 


,» THÈ* 

If ** = &4S -0'‘ 

eet of x*. ob ♦ 

ny* <*V. OB **' Q" -C"> 

<w *'«**‘*“ °^»=-£" 08 ,F o^ 20 
o** £V «*,£.d»»** 

0 v‘.v-;*V^ $. 

“S- jCA ;-" 6 «.-..»*’■•• 

*;N S~ 6 ^v ; p0^ t *n'l**+ 2 

W „ r( 0 >* o\ r- 0 -»V* 2/ 

co*<* 7 ?*£*'* 2 ’c£ ’ ^c^» 22 * 

*£ sc * 0 -<* C ‘„U»22***\ 


C<*' 


*♦' * 


po' 


p < A> 


feOO 

610 

620 


pO*^ 


ppt^ 


%-<>* \ > 
r O' 

n'^ eK 


(CO 


630 

6^0 


^°vV^V 2 U 2 > * 

‘ co *V.>** 2 *‘ 

P ‘ p\l ) * pe£ *s^ ^X&S * 77 -.\* 

pl2> “^tfcK y«22* ( »♦. * 1 

P< 3> pfcE* ^ SL y + \> A* 0 


p<4> 

ppl^7 
660 rT ^ 

660 


P* 


J><> 


\2' 




tV** 


\F 


* D 

Ve' 0 ’ 

pC*^ 


j. • • : v ,s» 2 " yi 


ss S ?»'*- 

690 


pl3> 4 
pOB 3 

3* 3 * 


> 6 * 


sr-9 70 
MP77 


^ e7b 



700 

710 

720 

730 

740 

750 

760 

770 

700 

790 

eoo 

010 

020 

030 

040 

050 


060 

870 

080 


890 

900 

910 

IOOO 

ÌOIO 

1020 

1030 

1040 

1050 

1060 

1070 

1080 

2000 

2010 

2020 

2030 

2040 

2050 

2060 

2070 


2000 

2090 

2100 

2110 

2120 

2130 

2M0 
2150 
3000 
3010 


3020 


3030 


3040 

3050 

3060 


PRINT ' fig li SCORE” S* POKE 36878,5* 

POKE 36877,155 

FOR L«0 TO 1 « D-l* T-O* IF L«1 THEN D«-1* T-16 
IF V(V,L,0)>—1 THEN 790 
IF RND(1)<.6 THEN 900 
FOR 1-0 TO 2* IF I-V TFtN 760 

IF V ( I,L,0)>—1 AND ABS < V(I,L,O)—T)<8 THEN 900 

NE XT I 

V<V,L,0)-T 

V <V,L,1) — INT <RND <1)42) 

T-V<V,L,0>« T-T+D* IF T<1 OR T>16 THEN 00O 
P"SC+ < Y (L) -1 ) 122+V <V,L,O) —1 

IF L-O THEN P-P+5* IF VCV,L,1)-1 TFCN P-P+l 
FOR I*P TO P-*-46 STEP 23* PE-PEEK (I) 

IF PE-81 OR PE>73 AND PE<79 THEN 2000 
NEXT I 

PRINT LEFT4(V4,Y <L)) LEFT4(X4,T-l) 

C4(V <V,L,1>,L) 

V(V,L,0)-T 
BOTO 900 

PRINT LEFT4(V4,YCL) ) LEFT4<X4,T-D) 










V <V,L,O)*-l 
NEXT L 

NEXT V* GOTO 360 
6-S+50* IF FR-1 THEN S-6+450 
PRINT ” 

PRINT - 


)■ J 


s* fr-fr-i 
• « 




POKE 36877,0* POKE 36878,0 
POKE 36879,42* FOR 1*1 TO IOOO* NEXT 
PRINT •IB" LEFT4 < XA,X) 

PRINT - 
PRINT 

POKE 36879,14* IF FR>0 THEN 300 



BOTO 2130 

PRINT LEFT4CY4,Y+l) LEFT*CX*,X) 



S ■! Il » □-! 


POKE 36879,88* POKE 36878,15* FOR V-200 TO 240* 
POKE 36877, V* HCXT V 
FOR 1-250 TO 130 STEP -1 
POKE 36877,1* FOR V-I TO 5* NEXT V, I 
FOR 1-14 TO O STEP -1* POKE 36878,1* 

FOR V» 1 TO 75* NEXT V,I 
FOR 1-1 TO IOOO* NEXT* POKE 36879,14* 

POKE 36877,0 
FOR 1-1 TO IOOO* NEXT 

POKE CO+YI22+X,C(0) * POKE CO+YI22+XM ,C < 1 ) • 

POKE CO*Yt22«-X*2,C<2) 

POKE CO+Yt22+X+22,C<3> • POKE CO+Yf22*X«*24,C<4> * 
POKE SC+Yt22* , X,P(0) • POKE 0C+YI22+X+1, P ( 1 ) • 


POKE SC+Y$22+X+22,P<3) • POKE SC«-Y*22«‘X+24,P(4) 
FOR I—O TO 4* PCI)-32* NEXT 
FR-FR-1 • IF FRM) THEN 300 





FOR 1=1 TO 5000* GET A4* IF A4="S" THEN 
POKE 36879,275 PRINT ” Q-; • END 
IF A*<>"” THEN RUN 
NEXT* RUN 
DIM C4(1,1) 

C4 (o,o)* M A i*i ■ ei k w ia eb - m II ■■ Il II ai t 

ras. ■ . . a 111111111111 a ^ 

Hk-US^” 





cs< 1 ,o) * - A * so - « 1 

■i ~ i£* ■ * * ~0i*iE)rai£j*vk.rj 

111111111111 * ■ mm sa m m + xo ed 

C% (0,1)= ” * 1*1 9 ~ Qk U\MEB - (fi II I 

» . . Id « Qk 11 ■ * (fi II II II II II 

" H S * " 


I II II II II 
(fi II II 


14 R k 



c*(i, 1 >= A A a * m & ~ ~ a 

IIIIH~tRl3~lfi9B]aifiJ* * 

■1 li 11 11 11 n * sì n . 

DIM V(2,1,1 ) ,YC1 )* Y(0)*8* Y(l)*14* 
FOR 1=0 TO 2* V(I,1,0)—1* V(I,0,0) 


* (fi II II I 

■ . (fili 

I M 


-1* NEXT 



RETURN 
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Vogliamo aiutare il povero alieno giunto per sbaglio sulla Terra a soprav¬ 
vivere! Per aiutarlo dovrete cercare di non farlo andare contro le pareti e 
di non farlo colpire da «corpi estranei». Potete anche sparare usando il ta¬ 
sto 6. Usare i tasti 5 e 8 per muovere a sinistra e a destra. 


5 

REM 

RLIEN DESCENDER 

10 

LET 

HI =0 

20 

LET 

fi = 10 

30 

LET 

GO =0 

40 

LET 

R* = " 

50 

LET 

RS=0 

60 

LET 

X =7 

70 

RRND 





♦ 


100 

110 



ipo 


130 

14-0 


FOR F=0 TO 7 

PRINT RT F , F; "SSK" i TRB 


NEXT F 

FOR F=S TO 21 „ 

PRINT RT F ,7; "Sir^TRB 



W 



« 4 


NEXT F 

PRINT rt 21 ,X; ; R$; * 

LET X=X+INT (RND*3) -1-(tX = i5 
0 ) 

PRINT RT mm " ; RT 1,R; 

" ; RT “;HT 3 , R; 

230 LET L=PEEK (PEEK 16398>256*f 


210 
) + ex 
220 




16399) 

LET L =L +PEEK (1+PEEK 1633Q+ 


260 LET L =L +PEEK <3+PEEK 16336+ 
256^PEEK 16333) 

270 IF L>0 RND L<>236 THEN GOTO 
1000 

300 LET R=R + (INKEY$ = "8 ') - HNKEY 
^ = "5 '* ) 

310 LET GO =GO* 1 

320 IF RND<.025 RND LEN R$ > 6 TH 



EN LET R*=R$(2 TO ) 


330 

IF 

RT 21 

, x 

4.00 

IF 

/ 


4-10 

LE 

4.20 

IF 

0 


4-30 

IF 

• Wl c 

/ c 


500 

se 

600 

IF 

3.R + 1; 



• ■ 


• • 



L- - 



RS>® THEN LET RS=RS+RND* 


RS=RS+ (RNDi.1) 

PS > LEN ft$4X THEN LET RS = 

RS>0 THEN PRINT RT 21.R5 


INK.EY $ = •&" THEN PRINT RT 
= = " ; RT 3 , R + l; RT 3,R 

^ . t. #f 

610 GOTO 200 
1000 FOR F=1 TO 10 

1010 PRINT RT mm ";OT 1,R; 

";RT 2, R; 

PRINT RT 0,h;” “;RT i,R;" 

" ; RT 2 , R; “ 

F 

PRINT RT 20,0;"PUNTI "; 

1060 IF GO >HI THEN LET HI=GO 
1070 PRINT RT 21,0;" 

^ l 

1080 FOR F=1 TO 200 
1090 NEXT F 
1100 CLS 

1110 PRINT "RNCORft? (S/N)" 

1120 IF INKEY*="S" THEN GOTO 20 
1130 IF INKEY$=“N" THEN STOP 
1135 IF INKEY*="N" THEN PRXNT RT 
10,4;"RRRIUEDERCI R PRESTO" 

114-0 IF INKEY $ = "" THEN GOTO 1120 
1210 GOTO 1120 


1030 NEXT 



# # 
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ZX Sp«ctrym 







Si tratta di un gioco molto semplice: tutto ciò che do- Il programma fornisce una buona dimostrazione delle 
vete fare è di scommettere su uno dei 6 cavalli in capacità grafiche e sonore del vostro Spectrum. 
gara... sperando di vincere! (Istruzioni incluse nel listato). ^ 




Struttura programma 
Linee 

500 definizione grafica cavallo 
1000 stampa terreno di gara 
1500 stampa cavalli 
1565 corsa 

3000 routine scommessa 

4000 movimento cavalli 

5000 motivo sonoro 

8000 routine perdita/vincita 

9000 continuazione o fine del gioco 


# 

i 

_ 
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1 REM GRRN PREMIO CRPRNNELLE 


500 

POKE 

USR 

-H-+0,BIN 

00000000 

510 

POKE 

USR 

"H"+1,BIN 

00001100 

520 

POKE 

USR 

-H-+2,BIN 

00011010 

530 

POKE 

USR 

-H-+3.BIN 

limili 

540 

POKE 

USR 

-H-+4,BIN 

01111101 

550 

POKE 

USR 

-H-+5,BIN 

01000010 

560 

POKE 

USR 

-H-+6.BIN 

10000001 

570 

POKE 

USR 

-H-+7.BIN 

00000000 

600 

GO SUB 5000 


610 

620 

LET TOTRL 
PRUSE 200 

= 100 


1000 

PRPER 

4 : 

INK 0: CLS 


1130 

DIM X(6): 

DIM Y(6) 


1200 

FOR X 

=0 TO 31 


1210 

POKE 

USR 

-U-+0,BIN 

10001000 

1211 

POKE 

USR 

- U - +1 , B IN 

10001000 

1212 

POKE 

USR 

-U-+2,BIN 

umili 

1213 

POKE 

USR 

-U-+3,BIN 

01000100 

1214 

POKE 

USR 

••U— +4,BIN 

00100010 

1215 

POKE 

USR 

-U-+5.BIN 

mimi 

1216 

POKE 

USR 

-U-+6,BIN 

00010001 

1217 

POKE 

USR 

-U-+7.BIN 

00010001 

1218 

PRINT 

RT 

1,X; INK 6 

; 

1219 

PRINT 

RT 

20,X; INK 

1220 

NEXT 

X 


« 

1300 

FOR Y 

=2 TO 19 


1310 

PRINT 

RT 

Y,30; INK 

0 ; PRPER 

?; •V" 





1320 NEXT V 
1500 FOR Y = 1 TO 6 
1520 LET X( Y)=2 
1530 LET Y(Y>=Y*3 

154.0 PRINT RT Y (Y ) , X (Y ) - 1 ; INK 7 
; Y ; INK 0;":*" 

154.5 NEXT* Y 

1550 FOR Y=2 TO 19: PRINT RT Y,3 

; INK 7; " I - 

1550 NEXT Y 

1555 GO SUB 3000 

1570 LET TEMPO =5 

1710 GO SUB 4000 

1720 GO TO 1710 

2000 BORDER 1 

2040 INUERSE 1 

2050 PRINT RT 2,8; '* df- S- * *• *- * * * * * 

*•- 

2055 PRINT RT 5,8,* -a-***-******-**-* 


2050 PRINT RT 3, 3 ; - * *GRRNPREMIO * 
RT 4,6.; " * «-CRPRNNELLE 
2055 INUERSE 0 


2070 PRINT RT 7,2; , ‘5RL I JE! ! ! “;RT 
8,2;‘PER QUESTO GIOCO NON CI SON 

0 " REGOLE.. L'UNICR COSR 

DR SAPERE E'CHE LE VINCITE S 

ONO < 5 > UOLTE LR SOMMR SCOMME 

SSR • ! *• 

2150 PRINT RT 18,7,- 



2170 RETURN 

3000 INPUT -QUALE CRURLLO SCEGLI 
o ** ; B 

3010 IF B < 1 OR B >5 THEN PRINT RT 
8.4; - NON PRENDERMI IN GIRO? U ;A 
T 9.4;** NON C "E'QUESTO CRUflLLO ! - 
: GO TO 3000 

3020 INPUT “HAI (TOTRL); ' “QUA 

NTO UUOI SCOMMETTERE?*' ; M 
3030 IF TOTRL-RBS M<0 THEN PRINT 
RT 8,5;- NON HRI QUESTI SOLDI!“ 
,* RT 9,5;- NON CI PROUfìRE! 

- : GO TO 3020 

3040 LET TOTRL=TOTRL-RBS H 
3050 PRINT RT 8.4;- 

-; RT* 9,4; - 


3060 PRINT RT 10,10;- 
• • 

4000 REM MOVIMENTO CRURLLI 
4010 FOR Z=1 TO 6 

4050 PRINT RT Y(Z),X(Z); INK 4.;- 
• • 

4110 LET X(Z)=X(Z)f(l+RNDi.7) 
4120 PRINT RT Y(Z),X(Z); INK (Z = 

B ) -|»7 • >c ^ M 

4130* IF X(Z) >30 THEN GO TO 8000 

4135 GO SUB 6000 

4138 IF T =99 THEN RE5TORE 

4140 NEXT Z 
4150 RETURN 
5000 GO SUB 2000 
5005 LET TEMPO =4 
5010 LET 1=3 
5015 GO SUB 6000 

5020 IF T =99 THEN PRINT RT 15,1 + 

l;- -: RESTORE : RETURN 

5030 PRINT RT 15,1; M 

5035 PRUSE 2 

5040 LET 1=1+.4 

5050 GO TO 5015 

6000 DRTR 9,.5.9,.5.9,.5.6,.5.9, 
.5,11,-5,9,.5,6,.5,-99,.5,6,.5,4 
, 1.5,6 , . 5,4 , 1 

6010 DRTR 9,.5,9,.5,6,.5,9,.5,11 
,.5,9..5,6,.5 

6020 DRTR -99,.5,6,.25.4,.25.2,. 

25.4.. 25.6..5.4..5.2.1.5 

6030 DRTR -99,1,2,.75,2,.25,6,.5 
,9,.5.14.1.5 

6040 DRTR -99,.5,11,.75,11,.25,1 

4.. 5.11..5.9.1.5 

6050 DRTR 6,.25,7,.25,9..5,9..5, 
6/.25.6..25 

6060 DRTR 9..25,9,.25,11,.5.9,.5 
.6.1 

6070 DRTR 4,.5.6,.5,7..25,6,.5,4 
..25.4..25.2.1.5 
6080 DRTR 99,99 
6090 RERD P,T 
6100 IF T =99 THEN RETURN 
6110 LET T=T/TEMPO 

6120 IF P = —99 THEN PRUSE INT (T* 
50) : RETURN 
6130 BEEP T.P 
6140 RETURN 

8000 IF Z=B THEN PRINT RT 7.6; ## B 
RRUO!! HRI UINTO!J-;RT 9,10;- $ 

: LET TOTRL=TOTRL+INT (5*M); 
PRINT INT (5*M) 

8010 IF Z < >B THEN PRINT RT 8,6;- 
MI SPIRCE ! ! ** ; RT 10,6; M Mfì HRI PE 

8020 IF / TOTflL<=0 THEN PRINT RT & 
,4; FLRSH 1; '* SPIRCENTE , MR SEI RI 
MRSTO -;RT 9.4;- COMPLETRMENTE R 
L UERDE! ";RT 10,4;- 

-;RT 7,4;- 

-;RT 21,0;-PREMI 
ENTER PER RICOMINCIRRE-: PRUSE 
0 : RUN 

9000 INPUT -ORA HRI (TOTRL),* ' 

-UUOI GIOCRRE RNCORR? (SI/N0j-,*R 

9005 RESTORE 

9010 IF R$ = ’* 31 — OR A$ = —£ i — THEN 
GO TO 1000 

9020 INK 0: PRPER 7: BORDER 7: C 

LS 

9030 PRUSE 1000: GO TO 9020 



76 











ZX - 81 / 16 K 




Siete al comando di una navicella in orbita attorno a 
Venere. 

Un Robot è stato inviato sul pianeta per raccogliere dei 
dati, ma nuvole di gas altamente corrosivo potrebbero 
distruggerlo. 

Per quanto tempo riuscirete ad evitare il gas letale? 
Un punteggio pari a 50 sec. è abbastanza buono 




é 



o 


> 






100-340 Loop per le nuvole - Ce ne sono 4, 3 nere e 1 grigia 

110-120 X (F) e Y (F) = coord. per ogni nuvola. Incremento 

difficoltà: (RND L.5) = (RND L.2) o (RND 

L.1) 

200-210 stampa nuvole 

220-230 cambiamento posizione Robot (si muove ad una ve- 

330 incremento punteggio in secondi 

1000-1020 Robot distrutto 
1060-1080 nuovo punteggio max. 



# 
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* V-* 


1 REM NEBBIR ÒU 
IO GOTO 80GO 
10O FOR F = 1 TO 4. 

110 LET X (F ) =X(F) ¥ { 1-2* (RND < - S 
« - ( X ( F ) >28) ¥ ( X ( F ) i 2 ) + ( X ( F ) < X ) - 
F ) > X ) 

120 LET V C F ) =•*'•' <«- t 1-2* (RND < • 5 » 

? ¥ (Y <F) <Y) - CY ir > ;* 13 f ¥ i. Y (F / «:2> - (Y 
fF) >Y) 

2O0 IF F = 1 THEN F'RINT RT Y (F) . X 

•F) j ; RT YJF) *1 , X (F > "Wl&" ; «T 

, X 
; R 


Y <F) * 2 X ( F ) ; “ 

204. IF F = 1 THEN PRINT RT YCF) 

f F) «t v <f>±i, x <f> ; w 

T Y ( F ) +2 , X CF ) ; "RH'' 

210 IF F >1 THEN PRINT RT YCF) , X 
(F) ; ; RT Y (FM-l j X (F ) ; "■Hi" ; R 

T Y CF ) +2 > X CF ) ; "BH" 

220 LET X=X+(INKEY$="8")-(INKEY 
S.^‘5”) +(X<2) - (X>29) 

230 LET Y=Y ¥ ( INKEY$="6" ) - (INKEY 
* = ,, 7 ,t ) ¥ (Y <2 ) - <Y > 1?) 

3O0 PRINT RT Y,X; 

310 IF PEEK ( PEEK 16398+256^PEE 
K 16399)=126 THEN GOTO 1000 
320 PRINT RT Y,X;*‘ RT Y,Xj 
330 LET 5C = 5C>1 
340 NEXT F 

GOTO 10© 

F = 1 TO 10 

1010 PRINT RT Y > X; "G"> RT Y,X; 

102O NEXT F 
1030 CLS 
1040 PRINT 


* 


iìè 9 

è 3q 

^130 


1000 FOR 




* 


J NK £ V 

«?0§ coro en ’ N " PS&e&ro 

eo l0 «SN Godili© 


SEI VISSUTO PER 


w 


se 


• I 


% % 


1050 PRINT 

1060 IF 5QH I THEN LET HI=5C 
1O70 PRINT tirdHtfirdìMi = “;HI; 

1080 IF 5C=HI RND 3C>50 THEN PPI 
NT *' CONGRRTULRZ ION I ** 

1020 PRINT 
1100 PRINT " 

< S /N ) 


«Ola 

£©20 r Xh 1 

*1 SS fgS f<*> 

teff lIt £ < j > Jf, t 

|i?| pl^r' * if 

liti !»x sc " e 



l • 


VUOI GIOCARE RNCORfi? s 0l0 p *Ifvr 


s®i® "BSSSg* Su 

fili CT"- 4 **»; 


£uff 0 P J?iNr " vI *To 

foli 1?^*“ ° LI PUo * 

sili ol/lj -c| ei •• 

3®?f So *o 

lp^nt * Nc h 


O/s/ 



^oe OT 

O Isr 




3, ®30 pf ?ì/s/-r '■'" Sc >No fil 

sfrt® Cl*^ s C s« e *e Ci ~ 0 

StPeSfen- T 


N T*N 


II 


Jt 


9 X M UXT* P * X 
INT .•RXHF‘H£ pe 

i&epE- .. 

ixfe ,. Dl 5tRUtTO 

*lNT o 

RX^X «=;0O _ Tl _ TUO F 

^' S “ o huouere 

L-S » * p E P ' ' r-. 

PIHT t>x&P o5XZX- 

,RX« .. HB X "T.’f. .^SSV.- 

b TdIs s - 0 T.w' 

. 






920® pRXU^ ..ppE^X 

llol P p I^ T THEU 

iN^iPfxsKev*" 

^oto x®° ..gì 

%'?oo xo .. io® 

%%%% PPI^ T PT 

• 1 PI p 


goto 




fi '•:/ 
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TI 99/4A 



La situazione alla centrale nucleare si stà facendo cri¬ 
tica. La fusione del nucleo è sempre più probabile. 
Solo voi potete cercare di fermare il reattore dall’auto¬ 
distruzione. Dovete correre nel labirinto di corridoi 
della centrale, è raggiungere il reattore e disattivarlo. 
Sembrerebbe facile se ad ostacolare il cammino non ci 
fossero dei Robot che, a causa delle radiazioni, non ri¬ 


conoscono più la parola d’ordine ed attaccano qualsia¬ 
si «intruso». ^ 

Naturalmente si tratta anche di una gara contro il tem¬ 
po. 

Allora, riuscirete a fermare la «catastrofe?». 1 1 

Istruzioni incluse nel programma. 












r . 1 


MA _ 




m 

& 


100 CALL CLEAR 

110 PRINT" #RE-fiCT*" 

120 PRINT = = = = : ' 

130 PRINT"LO SCOPO E'DI RAGGIUNGERE":"IL REATTTORE" 
140 PRINT 

150 PRINT"EVITANDO I ROBOT":= 

160 PRINT"SE UNO VI PRENDE.ALLORA":"SIETE MORTI!":: 
180 CALL SOUND (200.1109.0) 

190 FOR D=1 TO 2000 
200 NEXT D 
210 CALL CLEAR 

220 PRINT"USARE I TASTI CURSORE" 

221 PRINT"RAGGIUNGETE IL REATTORE" 

222 PRINT"PRIMA CHE ESPLODA" 

230 PRINT 

240 PRINT"I SISTEMI DI SICUREZZA NON" 

243 PRINT"SONO PIU' SINCRONIZZATI : " 

245 PRINT"LE PORTE SI APRONO/CHIUDONO" 
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250 PRINT"fì CASO" 

260 PRINT : : : 

270 PRINT" *BUONfì FORTUNA*" 

280 CflLL SOUND<200,1109,0) 

290 FOR D=1 TO 2000 

300 NEXT D 

310 CflLL CLEflR 

320 R=24 

330 C=16 

340 RR=4 

350 CC=4 

360 REM..SET SCREEN 
370 CflLL SCREEN<16) 

380 CflLL CHfìR<40,"FFFFFFFFFFFFFFFF") 
390 CflLL CHflR<97,"FFC3fl59999fl5C3FF") 
400 CflLL CHfìR<120,"FFFFFFFFFFFFFFFF") 
410 CflLL CHflR<112,"0000081C241C1422") 
420 CflLL CHfìR<104,"1C1C083E241C1422") 
430 CflLL CHflR<105, "00220099990022") 
440 CflLL HCHflR<1,1,40,32) 

450 CflLL HCHflR<24,1,40,32) 

460 CflLL VCHflRO, 1,40,24) 

470 CflLL VCHflR <1,32,40,24) 

480 CflLL HCHflR<3,3,40,23) 

490 CflLL HCHfìR<22,3,40,28) 

500 CflLL VCHflR<3,3,40,20) 

510 CflLL VCHfìR<3,30,40,20) 

520 COLL HCHfìR<5,5,40,24) 

530 CflLL HCHflR<20,5,40,24) 

540 CflLL VCHfìR<5,5,40,15) 

550 CflLL VCHflR<5,23,40,15) 

560 CflLL HCHfìR<10,15,40,7) 

570 CflLL HCHflR<14,15,40,7) 

580 CflLL HCHflR<11,15,40,2) 

590 CflLL HCHflR<12,15,40,4) 

610 CflLL VCHflR<11,21,40,3) 

620 CflLL VCHflR<15,21,40,5) 

630 CflLL VCHflR<5,15,40,5) 

640 CflLL HCHfìR<24,16,32) 

650 CflLL HCHflR<3,16,32) 

660 COLL HCHfìR<12,5,32) 

670 CflLL HCHflR<12,28,32) 

630 CflLL HCHRR<7,15,32) 

690 CflLL HCHflR<17,21,32) 

700 CflLL HCHflR<12,20,32,2) 

710 CflLL HCHAR<18,7,40,5) 

720 CflLL VCHfìR<19,7,40) 

730 CflLL VCHflR<19,11,40) 

740 FOR fì=22 TO 25 

750 CflLL VCHflR < < 3,fì,40,7) 

760 NEXT FI 

770 CflLL COLORO,2,12) 

730 CflLL COLOR<l1,5,1) 

790 CflLL COLOR<10,7,1) 

800 CflLL VCHflRO,23,120,3) 

810 CflLL VCHflRO, 24,120,3) 

820 REM.SET TIME 

830 TIME=41 


340 TIME=TIME-1 

350 IF LEN < STR$ < TIME)) = 1THEN 860 
ELSE 870 

360 CflLL HCHflR<19,10,32) 

370 FOR 1=1 TO LEN<STR$<TIME)) 

880 CflLL HCHflR<19,I+S,ASC < SEG$ 
<STR$<TIME),I,1))) 

890 NEXT I 
900 REM .... 

910 REM ....**MAIN LOOP** 

915 RflNBOMIZE 

920 CflLL HCHflR<R,C,112) 

930 GOSUB 1150 
940 GOSUB 1090 
950 GOSUB 1150 
960 GOSUB 2090 
970 CflLL GCHAR<12,21,E) 

980 IF E=112 THEN 2390 

990 GOSUB 1150 

1000 MX=INT<RNB*10)+1 

1010 IF MX=1 THEN 1120 

1020 GOSUB 1150 

1030 DC=INT < RND*10 ) +1 

1040 ON DC GOSUB 1730,1800,1370, 

1940,2010,1940,2010,1940,2010, 1730 

1050 GOSUB 1150 

1060 CflLL HCHflR<RR,CC,104) 

1070 GOTO 920 
1030 REM ...CORE COLOUR 
1090 COLL=INT < RND*15) +1 
1100 CflLL COLOR<12,COLL,1) 

1110 RETURN 
1120 GOSUB 1430 
1130 GOTO 920 

1140 REM.MflN MOVES 

1150 CflLL HCHflR<R,C,32) 

1160 CflLL KE't'<0, K, S) 

1170 IF K=69 THEN 1130 ELSE 1230 
1130 R=R-1 

1190 CflLL GCHflR<R,C,G) 

1200 IFG>32 THEN 1210 ELSE 1220 
1210 R=R+1 
1220 GOTO 1400 

1230 IF K=88 THEN 1240 ELSE 1290 
1240 R=R+1 

1250 CflLL GCHflR<R,C,G) 

1260 IF G>32 THEN 1270 ELSE 1280 
1270 R=R-1 
1230 GOTO 1400 • 

1290 IF K=83 THEN 1300 ELSE 1350 
1300 C=C-1 

1310 CflLL GCHflR<R,C,G) 

1320 IF G>32 THEN 1330 ELSE 1340 
1330 C=C+1 
1340 GOTO 1400 

1350 IF K=68 THEN 1360 ELSE 1400 
1360 C=C+1 

1370 CflLL GCHflR<R,C,G) 


80 













1330 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 


IF G>32 THEN 1390 ELSE 1400 
C=C-1 

CfiLL HCHfìR<R,C,112) 

RETURN 

REM.ROBOT MOVES 

FOR T=4 TO 29 
CfìLL HCHRR<4,T,104) 

CRLL GCHAR<4,T+1,GC> 

IF GC=112 TEHN 2310 
CRLL HCHRR<4,T,32) 

NEXT T 


GOSUB 2090 
FOR VV=5 TO 21 


CRLL VCHRR<W,29,104) 
CRLL GCHfìR< VV+1,29+GC) 
IF GC=112 THEN 2310 
CRLL VCHRR < VV ,29,32) 
NEXT 


I II I 

V V 


GOSUB 2090 

FOR C0=28 TO 4 STEP-1 
CRLL HCHRR<21,CO,104) 
CRLL GCHfìR<2l,CO+l,GC) 


IF GC=112 THEN 2310 
CRLL HCHfìR < 21,CO,32) 


1620 NEXT CO 

1630 GOSUB 2090 

1640 FOR VC=20 TO 5 STEP-1 

1650 CRLL VCHRR<VC,4,104) 

1660 CRLL GCHfìR < VC+1,4,GC > 

1670 IF GC=112 THEN 2310 

1680 CRLL VCHflRCVC,4,32) 

1690 NEXT VC 

1700 GOSUB 2090 

1710 RETURN 

1720 REM.DOOR CONTROL 

1730 CfìLL HCHfìR<3,16,97) 
1740 CRLL HCHfìR<12,5,32) 
1750 CRLL HCHRRC12,28,32) 
1760 CRLL HCHRRC7,15,32) 
1770 CfìLL HCHfìR<17,21,32) 
1780 CRLL SOUNIX100,110,10) 
1790 RETURN 

1300 CRLL HCRHR<12,5,97) 
1810 CRLL HCHfìR<12,28,32) 
1820 CfìLL HCAHR<7,15,32) 
1330 CfìLL HCHRR<17,21,32) 
1840 CfìLL HCHRRC3,16,32) 
1850 CRLL SOUNDa00,110,10) 
1860 RETURN 

1870 CfìLL HCHfìR<12,23,97) 
1880 CRLL HCAHR<7,15,32) 
1890 CRLL HCHRRC17,21,32) 
1900 CfìLL HCHRR<3,16,32) 
1910 CfìLL HCHRRC12,5,32) 
1920 CRLL SOUND<100,110,10) 
1930 RETURN 

1940 CRLL HCHRR<7,15,97) 


1950 CfìLL HCHRR<17,21,32) 

I960 CfìLL HCHRR<3,16,32) 

1970 CfìLL HCHfìR<12,5,32) 

1930 CfìLL HCHfìR<12,28,32) 

1990 CfìLL SOUND<100,110,10) 

2000 RETURN 

2010 CRLL HCHfìR<17,21,97) 

2020 CRLL HCHRR<3,16,32) 

2030 CRLL HCHRR<12,5,32) 

2040 CRLL HCHRR <(12,28,32) 

2050 CRLL HCHRR<7,15,32) 

2060 CfìLL SOUNDa00,110,10) 

2070 RETURN 

2030 REM ....TIME COUNT 
2090 TIME=TIME-1 
2100 IF LEN<STR$3TIME))=1 THEN 
2110 ELSE 2120 

2110 CfìLL HCHRRt19,10,32) 

2120 FOR 1=1 TO LEN<STR$<TIME)) 
2130 CRLL HCHRR <19,1+3,RSC < SEG$ 
<STR$<TIME),I,1))) 

2140 IF TIME=0 THEN 2180 
2150 NfìXT I 

2160 CRLL SOUND<100,1760,0). 

2170 RETURN 

2180 REM.DESTRIJCTION 

2190 CRLL- COLOR <2,14,1) 

2200 FOR S=30 TO STEP-1 
2210 CRLL SOUND<50,110,S) 

2220 NEXT S 

2230 CRLL SOUND<300,110,0) 

2240 CRLL CLEfìR 
2250 CRLL SCREEN<14) 

2260 PRINT"IL REATTORE E SALTATO" 
2270 FOR D=1 TO 2000 
2280 NEXT D 
2290 END 

2300 REM .CRUGHT BV ROBOT 

2310 CRLL HCHRR<R,C,105) 

2320 CfìLL SOUND<300,-1,0) 

2330 CRLL HCHRR<R,C,32) 

2340 FOR DE=1 TO 1000 
2350 NEXT DE 
2360 CRLL CLERR 


2370 PRINT"SEI STATO BATTUTO!" :::::: 
2380 STOP 

2390 FOR V=30 TO 0 STEP-1 
2400 CRLL SOUND<50,392,V) 

2410 NEXT V 
2420 CRLL CLERR 

2430 PRINT"FANTASTICO ! CE L'HRI FATTA 
IN":TIME:"SECONDI" 

2440 FOR D=1 TO 3000 
2450 NEXT D 
2460 END 
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Struttura programma 









Velocità e abilità sono essenziali in questo gioco. 
Dovete cercare di completare il percorso nel minor 
tempo possibile. 

Attenzione alle macchie d’olio e di bagnato 
Comandi: 


Linee 



100-250 

Inizio 

W - alto 

390-420 

cambiamento direzione 

A - sinistra 

430-500 

determinazione prox. movimento 

D - destra 

660 

RUN 

X - basso 

• 

Variabili 




X,Y = posizione auto 

DX,DY = direzione prox. movimento 

D = direzione 

L = numero di LAPS 

TI = tempo 






100 
1 10 


130 
140 
150 
160 
170 
180 
190 
210 
220 


POKE 650 ..255 

POKE 36879,136‘POKE 36378,4 
PRINT'TWS 


liiiiiiiiffll 


!»»»»»»»»»»»»»! 


PRI NT" a !»»»»»»»»»»»»»»»! I»Ì»»»»»»»»»»»»»I 

PRI NT " l»»»Ì»»ÌÌ»»ÌÌ»»»»»l IÌ»»ÌÌ»»»Ì»»Ì»Ì»»Ì»I 

FORI*! TO 7 : FRI NT" l»»»»»»»»»liÌ»»»»»»! , Jl " J : NEXT 
PRINT" l»i»»»»»i»»»»»»»»»l »Bi|iDi|v»ftii|i*l»ffBBiÌlaBB||)t|iBnD 

PR I NT 11 l»»ÌÌ»»»Ì»»»»»Ì»Ì»l lii»»d»»»»i»ii»i I 

PR I NT" HIIIIIIIIIIIIIIII l»iiii»i»»»»»»»»l 

FOR I*3164 TO 8185 ; POKEI+30720,2 : POKE I/160-NEXT 
FOR 1 = 1 TO 5 : FRI NT" QlllliaillMir 1 ; : NEXT 


III 


Il • 
> 


il • 
J 

il • 


li» 


FRI NT "Il 


DB 


tiininianni 


ii • 
} 


idi 


I 


il 


li » 
} 


li • 
} 




_ 
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ss «? icr p;i cr* a — rL 
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Dalla parte dello... squalo! 

Dovete cercare di «mangiare» i quattro ignari nuotato¬ 
ri, nel minor numero di mosse possibile. 

I quattro nuotatori vengono posizionati a caso sullo 
schermo e si muovono ognuno in direzione diversa. 
La loro velocità è 1/4 della vostra. 

Buon ... appetito! 


Comandi: 

5 - sinistra 

6 - basso 

7 - alto 

8 - destra 


(Non premere SHIFT) 


Struttura programma 
Linee 

20 situare nuotatori IM: 

30 linea a caso 

40 colonna a caso 

60 situare squalo 

80 direzione iniziale squalo 

260 indicare nuotatore come «mangiato» 

300 controllare se ci sono nuotatori vivi 

I- 320 se ce ne sono, continuare 

500 cambiamento direzione 

520 muovere squalo 

530 calcolare direzione squalo 

600 muovere prox. nuotatore 

610 controllo direzione nuotatore 

620 rimuovere posiz. precedente 

630 disegno nuova posizione 

910 aggiornamento numero nuotatori 


p 
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1 

REM SQUALO 

D 

2 

REM **** 

52© 

10 

DIM S(6 > 2) 

530 

20 

FOR X = 1 TO 4 

540 

30 

LET S(X,1)=INT (RND*64) 

550 

40 

LET S(X,2)=INT (RND*44> 

560 

50 

NEXT X 

570 

60 

LET 5(5,1)=30 

580 

•?0 

LET 5(5,2)=24 

590 

80 

LET YD = 4 

600 

90 

LET T=0 

610 

100 

LET N=1 

520 

110 

PRINT RT 10 j 14; '* SQUALO" 

530 

200 

REM LOOP PRINCIPRLE 

900 

210 

LET X=1 

910 

220 

FOR Y = 1 TO 4 

920 

230 

IF S CY, 1) < >S <5,1) OR S(Y,2> 

930 

OS (5,2) THEN GOTO 30© 

1000 

240 

PRINT RT 21—1 NT ( S (Y , 2) ,**2) , 

1010 

INT 

(S (Y , 1) /2) ; "MUNCH" 

1020 

250 

PROSE 10© 

1030 

260 

LET S (Y , 1) = -1 

1100 

300 

IF S (Y 1) < > — 1 THEN LET X«© 

1110 

310 

NEXT Y 

1120 

320 

IF NOT X THEN GOTO 500 

1130 

330 

PRINT RT 20,0; "HRI "T ; " GX 

1) /64 

RI" 


1140 

340 

GOTO 9999 

2) /44 

500 

LET D=CODE INKEY $-32 

1150 

510 

IF D >0 RND D<5 THEN LET YD = 

1150 


LET D=YD 

sosub 1030 

UNPLOT 5(6,1) ,5(6,2) 

LET S (6,1) =S (5,1) 

LET S (6,2) =5(5,2) 

GOSUB 1000 
LET S=N 

IF S(S,1)=-1 THEN GOTO 
LET D=N 

GOSUB 1000 

UNPLOT 5(S,1),5(5.3) 

GOSUB 1100 

LET T =T 4-1 

LET N=N + 1 

IF N >4. THEN LET N=1 
GOTO 200 

REM CRLCOLO DIREZIONE 
LET DX= ( (D=l) *--1) *(D=4> 
LET DY=((D=2)*-l)+(D=3) 
RETURN 

REM MOVIMENTO OGGETTO 
S <S, 1) =S <S, 1) +DX 
S( S , 2 ) =S <S, 2) +DY 
S(S,1)=S(S,1)—INT 

) *64. 


tS (S 


) *44 
PLOT S(S 
RETURN 


S(5,2)=5(5,2)-INT 

1 ) , 5 ( 5 , 2 ) 


iS <5 
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® Il cuoco è impazzito: continua a far volare fuori dalla cucina dei 
tacchini! Aiutate il povero cameriere a non farli cadere a terra per 
piu di due volte, altrimenti diventeranno immangiabili. 





1 POKE 53281,0 • POKE 53280,9 

2 CO - 54272 * P » 150 • X * 150 • Y - 190 • 

V - 53248 • BC * O • LI -3* 

XD - INT ( RMD ( 1 ) $9-4) • YD - - 1 

3 POKE V ♦ 21,3 » POKE 2040,13 • POKE 2041,14 

4 FOR I « O TO 126 • READ Q # POKE 832 ♦ 1,0 • 

NEXT 


O KUKfc V,P t POKE V ♦ 1,200 • POKE V ♦ 2, X • 
POKE V ♦ 3,Y 

7 PRINT " Q «SUPER A MA ITER! A A KSCORE» * 

8 FOR I - 55381 TO 55406 • POKE 1,5 • 

POKE I - CO,86 • NEXT * 

FOR I - 55381 TO 56156 STEP 40 

9 POKE 1,5 • POKE I - CO,86 « POKE I 

POKE I ♦ 29 - CO,86 * NEXT 
10 PRINT "BBBBBBBBBBBB 
BBBBBBBBBl4 N SS; a A A 
20 PE » PEEK ( 197 ) 


• 3 • 


* * “ÌLI 


22 IF PE < > 12 AND PE < > 36 THEN 50 

26 IF PE - 12 AND P > 70 THEN P = P - 2 

32 IF PE - 36 AND P < 240 THEN P - P ♦ 2 
40 POKE V,P 

50Y1-Y» XI - X * « * O 
60 Y1 - Y1 ♦ YD • XI « XI + XD 
70 IF XI < 70 OR XI > 240 THEN XD « - XD « 
8-6+1 • N^l 

BO IF Y1 > 220 THEN X - P • Y - 200 • 

XD - INT C RND ( 1 ) I 9 * 4 ) i YD > • 1 i 

LI - LI - 1 « GOTO HO 
90 IF Y1 < 70 THEN YD - 1 * 

XD - INT < RND <l)t9-4)»5-6+l* 

« - 1 


ir- y ì 


210 AND PEEK < V + 30 . > < >0 THEN 


XD 


INT < RND < 1 ) » 9 - 4 ) • 


ÌOO 

HO 

120 

130 

140 

150 

160 

9000 

9010 

9020 

9030 

9040 

9050 


XI 


• V - VI • POKE V ♦ 2,X 


B B B B B BTHE 

A A * MANT A TO 


YD » - 1 « 

8-6 + 2 
IF « - O THEN X - 
POKE V ♦ 3,Y 
IF LI > O THEN GOTO IO 
PRINT " 

TURKEY A IS A INED1BLE • • - 
PRINT “ KB M SI B 
a TRY a AGAIN7" 

GET A4 t IF A4 « "Y" THEN RUN 

IF A4 < > -N" THEN 140 

END 

DATA O, O, O, O, O, O, O, 0, O, O, O, O 0 0 0 0 

, 0, O, O, O, 0, 7, 253, 240, 7, 255,’ 240,’ 0,’62,0, O 

DATA 64,128,0,92,128,0,92,128,0,73,0 

,0,62,0,0,30,0,0,30,0,0,18,0,0, 17,0,0,17 
DATA 0,0,49,128 

DATA 0,0, , O, O, O, O, O, O, O, O, O, 192, O, 7 

,240,0,15,240,0,31,252,0,63,254,0, 127,294 
DATA O,255,127,1,248,63,9,224,14,7,128 
,14,15,240,15,3,14,30,6,1,248,0,0,112 
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0 
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Dalla nave madre escono degli alieni. 

Riuscirete a distruggerli prima che distruggano voi? 
Avrete bisogno di riflessi più che pronti per riuscire 
nella vostra missione. 



s 

- punteggio 

LI 

- vite 

G 

- terra 

B (2) 

- bombe 

X,J 

- posizione bomba 

s (4) 

- locazioni navi 

UP, DI 

- navi 


Comandi: 

Z - sinistra 
C - destra 
M - laser 


Struttura 

* 

Linee 

100-140 Inizio 

150-250 PRINT nave e punteggio 

450-480 Aggiornamento punteggio 

540-780 Movimento nave esistente + creazione nuova nave 

730-750 Bombe 



100 

no 

120 

130 

140 

150 

160 

» 

170 

180 

190 

200 


POKE 36879,8* 00=30720* LI=3 
DIM S(4),8(2)* DI=99* UP=99 
DEF FNY(DI)=INT(<S<DI>-7680)/22) 
DEF FNX(DI)=S(DI) — <Y$22+7680) 
6=8174* S=0 


PRINT 


TAB(7) - 




□ rara 

PRINT TAB (4) A . 

~ A ia or* 

print - A 
aiQ" 

print - m A A Qifiygggggg 

g y ■ Q" 

PRINT TAB (3) M B8 H ISI bl hi ▲ □ B 14 ■ B 9 B3 1*4 

Q Q A 

PRINT TAB (4) "lÌKB0000diniKlflfIH 
H H H 9 M 


A □ A Q « □ 


%. «> %../ %../ 
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250 

260 

270 

280 

2 90 
300 

3 J o 

320 
330 
340 


350 

360 


370 

3©o 

390 

400 

«10 

«20 

«30 

««0 

«50 


«60 

«70 

«80 


tu.-S"''* ws SE"'-"” 

f*^T(R N0(n *** S(I). 0 

J F S < I > +D< 77 ? 4 ( RRD( 1 ) t-r 

IE PEEK (sllf‘n° R S(I) ^>78JI 
POKE SCI) •Ji > 0> <>32 THEN TMEN D ~0 

,f d ^ <£;?■ ** E s "'»co,3. 

£«« ^b^o‘ g,<>,1 3 OR 

è 64 t * n =«° 

G=G-(Kifl,.' > ® <e 6*1,32, 

Se I :, 1 *??> ' • G ^£ 5 6 * Wh ’^ < «« 1 

~r iic r 

-■SS ?Z£d a - 

^^J+co J 7 ? 2 U* ì '° 2 *£ D P< >88 AND P < >«6 
Se e ^ » « * 2 - - -« ì - S10 

-S?o7rj^S 63 —30 

36876, 0 TMEN 4<t0 
S(DI>*0: S-S*,^ 

p o*E J+co n 2 f* 0l ***« POKE I o 

av- - - ; 

»-»»• * S<11 ”° 

* N ® (,,, -0« 8-6*5 



6 90 
700 
710 


720 

730 

740 

750 

760 

770 

780 

790 

000 

G| o 

820 
830 

840 

830 
86 0 
8 70 
880 


p 0R J« 0 To 

jp p c £ * <G + *><h ! 12 0R * 

?s «*■ w 

TH T c H f N 

pok e filjf 070 7 ’0 8< 

we«r j , ? , *co.i, p 

P0K£ 6:/: c 80F0 230 6 ® ,J 

p OR^\Vr ;f -^V; C 0 

POke „ 7 ° 25* Poke E 36B ; 

"0»e L 6 ;‘'»3 ° kE G -i.: 

POKe 6-f ?’ ,S -‘»/l.7, 

POR J-] J 733 ' POEc'g ’ F ° 

FOR T ° 30» RfTvr 6 * 233 * 

8<i)ir° t ° 2 * ip ; t j -* 

LI« Lj * NExr * Po k:F i i >>0 T » 

for L Ì:; § if ^>o rJt B77 ^ 

1 To 3000. 2 «c. 

EXT * RUn 



























Dovete far atterrare l’elicottero su una base in mezzo 
al mare, di notte, durante un temporale. La visibilità è 
scarsa ed il vento può farvi sbandare. 

Fate inoltre attenzione alla forza di gravità. 


Sulla destra dello schermo sono visualizzati gli stru¬ 
menti di bordo: controllate il carburante (FUEL) e la A 
velocità di discesa (DESCENT RATE) - per un buon at¬ 
terraggio deve essere minore di 2. 


Struttura 

programma 

$ 



Linee 

A 

Comandi: 

Variabili 

• 

0-4 

5-19 

22-35 

36-55 

500-640 

9000-9070 

Inizio 

grafica 

tempo illuminazione 
lettura tastiera 
atterraggio 

DATA 

A - sinistra 

D - destra 

W - spinta 

CO = generatori tono 

T = tempo illuminazione 

X = coordinate 

A 

• 





■\m*. 

^1 

• * V.v^Sv 

• M 



± 
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O PR I NT "Ci" : POKE 33280,0 « POKE 53281,0 

: V « 33248 * CO * 54272 : POKE 34296,10 

* POKE 54276,0 

1 POKE 54276,129 « POKE 54278,240 

2 POKE 54273,0 * T « O * X - 35 ♦ 

INT ( RND < 1 ) • 180 ) « V - 53 

s D = < INT < RND < 1 > • 5 > - 2 > / 2 

3 F * 10 * POKE V ♦ 21,3 * POKE 2040,13 

s POKE V ♦ 39,1 * POKE 2041,14 t POKE V ♦ 40,4 

* POKE V ♦ 20,3 

4 POKE V ♦ 37,5 * POKE V ♦ 38,7 « FOR I « O TO 190 

< READ O • POKE I ♦ 032,0 * NEXT 

5 PRINT - 0 0 0 00 0 0 0 (SI 0 0 EH II II II II II II II 


Il II D U ------- H II II II 11 II II II II J; 

■ W1ND * . H I; ld II II II II II II II II I . - « » - 

tu - 

6 PRINT " 0 || || Il || || || || || || || || J. BDESC. * B J 

0 II II II II II II II II tu TU" 

7 PRINT " 0 || || || || || Il || || Il II II I; HIFUEL A , H U 

0 Il II II II II II II II I . . . . . . CI. OD II II II II 

■i ■■ ■■ a ^ •=? e e e ~ a " 


8 FOR I = 56016 TO 56055 * POKE 1,6 

* POKE I - CO, 223 « l«XT 

t FOR I * 56056 TO 56296 * POKE 1,6 

9 POKE I - CO, 160 s NE XI * POKE V,X 

t POKE V ♦ 2,X ♦ 24 s POKE V ♦ 1,Y 

* POKE V ♦ 3,Y 8 PE - PEEK < V ♦ 31 ) 

10 PRINT ’HIflldCOIKIKIKIBBililllliOGHIIIIIIJB 
B) I . OC II II II II I H K) I 0 II II II II IBB I 0 

M N MM LI CBB U ■ M M N M li ■■ ri” 

n print - n ■ b ■ ta b ej h 0 li il il il li a si ca b ■ t. 

. . . . i£) n— n ■ 0 n n n ii n n n ii n ii 


« 




Il II II II II I M H M M I , . * . IBI . * A . 1" 

15 PRINT "BEllSi. . . B B . . . - . . . . . - . . . 

Si ED M 

16 PRINT - " BBBl2J0B9nnBBBBBBBBBLa0 

BBBBSQ' 

17 PRINT "BBBISI0B9 . BBBBBBBBBBUOÌ0" 

18 PRINT "BBBIdBB* . DB B BHBDDDEliSj^’ 

19 PRINT -BBB120BBBBBBBBBBBB0" 

20 PRINT - 0 0 0 0 0 0 0 0 0 0 0 0 0 II II II II II II II 

■10. . . Il II ll M « D 8 PRINT ' « B H II II II II II 

■I . . . Il II II II" » INT ( 6 t 10 > / 10 

21 PRINT " 0 0 || || Il II II IIHII « . « . H H II II ~ 

5INT ( F * 10 ) / 10 

22 T « T ♦ 1 8 POKE 2041,14 s POKE 34273,100 



25 IF T 

t 


* 30 TFCN POKE 33201 
PRINT ”000000 



M 0 0 II II “ Il II 0 » M M !“j 


NMlBBNIinii 
0 0/0 0 0 n II II 0” 



30 IF T * 32 THEN 

PRINT ”00000000000.000.0|| . 
00 II . Il II . 0 M II . 00.000.0 11 . • 












/ 




35 IF T * 35 THEN POKE 53281,0 8 T * O 

36 POKE 54273,0 

40 PE = PEEK ( 197 ) 

45 IF PE = 18 AND F > O THEN X » X ♦ 2 « F-F-.l 

50 IF PE * 10 AND F > O THEN X * X - 2 » F-F-.l 

55 IF PE - 9 AND Y > 50 AND F > O THEN V - Y - 2 

t 6 = 08 F-F-.3 

66 X = X ♦ D 8 IF RND <!><.! TFCN X - X ♦ 2 
8 F-F-.l 

68 POKE 2041,15 s POKE 54273,100 8 Y - Y ♦ G 

«6 = G-*-.2s IF X > 215 TFCN X - 215 

69 IF X < 32 THEN X « 32 

70 POKE V,X 8 POKE V ♦ 1,Y 8 POKE V ♦ 2,X ♦ 24 

8 POKE V ♦ 3,Y 

71 IF F < O THEN POKE 54296,1 

72 IF X > 11 AND X < 120 AND Y > 135 TFCN 300 

78 IF PEEK ( V ♦ 31 ) < > O THEN ÌOO 

79 POKE 54273,0 

80 GOTO 20 

ÌOO POKE 53281,11 

8 PRINT ” 0 0 0 0 0 0 II II II II II 0 0 0 II II “ Il 

■I 0 0 II II “ Il II 0 0 II II “ Il II 0 0 II II “ Il II 0“ 

101 POKE 54296,15 s FOR I » 20 TO O STEP - .2 
8 POKE 54273,1 * NEXT 8 POKE 54273,0 
110 FOR I = 1 TO 20 s POKE V,X - I # POKE V ♦ 2, X ♦ I 
e NEXT 

120 FOR I » Y TO 220 8 POKE V ♦ 1,1 * POKE V ♦ 3, I 
s POKE 54273,1 * NEXT 8 POKE 54273,0 
130 POKE V f O s POKE V ♦ 1,0 * POKE V ♦ 2,0 
s POKE V ♦ 3,0 
150 POKE 33281,0 

: PRINT " 0 0 0 0 0 0 II II II II II Ml 0 0 II II “ Il 

■I 0 0 II II ~ Il II 0 0 II II ~ Il II 0 0 II II " Il II 0" 

180 FOR I = 1 TO 2000 » NEXT 
200 RUN 

500 IF G > 2 THEN ÌOO 

600 POKE 53281,2 « POKE V «■ 1,136 8 POKE V ♦ 3,136 
8 POKE 34273,0 * POKE 34276,0 * POKE 54276,17 


605 GOSUB 800 

610 PRINT ”00000000000000000000 
ilSBBB . . . Iltltlt .NELL . DONE . Mlllir 
620 PRINT - ISÌBBBBB0 . . . ANOTHER . GO*> . . . " 
625 GET A* • IF A4 = “Y" THEN RUN 
630 IF A4 < > -N” THEN 625 
635 PRINT - ua B BBYE . BYE. " 

640 END 

800 FOR I » 30 TO ÌOO STEP 2 8 POKE 54273,1 » MEXT 

810 FOR I - 140 TO 95 STEP - 1 » POKE 54273,1 * NEXT 

820 FOR I * 3 TO 20 STEP .4 s POKE 54273,1 * NEXT 

830 FOR I = 90 TO 70 STEP - .3 « POKE 54273,1 • NEXT 

840 FOR I - ÌOO TO O STEP - 3 8 POKE 54273,1 * ^ XT 

050 FOR I » 20 TO 10 STEP - .2 8 POKE 34273,1 * NEXT 

860 FOR I = 90 TO 70 STEP - .2 * POKE 54273,1 8 FCXT 

870 FOR I = O TO IO STEP .1 * POKE 54273,1 * >CXT 
880 POKE 54273,0 • POKE 54277,0 
890 RETURN 
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Due tipi di navi aliene stanno attaccando la terra: do¬ 
vete difendervi! 

Per muovere il nostro laser a destra e a sinistra usate 
rispettivamente i tasti 8 e 5, per fare fuoco il tasto 7. 
Il gioco termina quando avrete distrutto tutte le navi 
nemiche o se una di queste riesce ad arrivare al limite 
X segnato sulla sinistra dello schermo. 



Struttura programma 
Linee 


10 definizione carattere grafico primo alieno 
100 definizione carattere grafico lancia missili 
200 definizione carattere grafico secondo alieno 
300 definizione carattere grafico esplosione 
400 variabile e colori di fondo 
500 iniz. stringhe 
1000 stampa alieni 

1100 stampa e movimento lancia missili 

1400 lancio missili 

7000 eliminazione alieno colpito 

7900 esplosione, suono e aggiornamento nuovo punteggio 


* I 

5 REM Spectrc'M inv3ders 


10 

POKE 

USR 

"i" 

20 

POKE 

USR 

" i " 

30 

POKE 

USR 

Il ^ Il 

40 

POKE 

USR 

il ^ Il 

50 

POKE 

USR 

"1" 

60 

POKE 

USR 

Il ^ Il 

70 

POKE 

USR 

Il ^ Il 

80 

POKE 

USR 

Il ^ Il 


+0.BIN 00011000 

+1,BIN 00111100 

+ 2 1 DIN 01111110 
+ 3, DIN Ullllll 
+4,DIN 11000011 
+ 5,E:IN 11000011 
+6,BIN 01100110 
+ 7 ♦ E'-1N 00 100100 



« 
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COMMODORE 64 



Le equazioni di 2° grado da adesso in poi non sono 
più un problema per voi! Con questo semplice pro¬ 
gramma le potrete risolvere in un attimo senza possi¬ 
bilità di errore. 


r 


- 




■ . 

L f*ì * 




• 4L 

. 


? 




ifV 


% V' 

% Vo ^ 

?*£&*& * 


, ^ CV ' 

. o T>t u V«fiOO'' 

«** 








\à j n r pftivC' „ ètf ^ 


ccS e^" 

nW P ossof p z^ 0 "- 


je« pò‘tvf' . 

$$$* cov*«^ C 

zz« a°,c(» ,, * 

za® V'Sr e* 1 ?* •,* 

Ut- • ^® iV 

^a ®® 


* 


s 


iO^O 


c 


ov^ u 


CSS^ 




93 


















PRIMA LEZIONE 


L’ORGANIZZAZIONE DI UN COMPUTER 



Quanta gente ancora considera l’home-computer una sca¬ 
tola nera di cui non conosce il contenuto, né il funzionamento. 
Bene, scopo di questa rubrica è appunto cercare di chiarire 
determinati concetti e spiegarne in un linguaggio compren¬ 
sibile il funzionamento. 

La scatola nera che abbiamo davanti sia essa un VIC-20, 
un TEXAS, un ORIC, un SINCLAIR etc. per non citare i più 
grandi (APPLE etc.) fondamentalmente parte da uno sche¬ 
ma a blocchi come quello mostrato in fig. 1 composto da: 

1 CPU (UNITÀ CENTRALE DI ELABORAZIONE) 

2 MEMORIA (RAM-ROM) 

3 INPUT/OUTPUT (INGRESSO/USCITA) 


4 PERIFERICHE 

Senza soffermarci adesso nella descrizione particolareggia¬ 
ta delle singole parti, oggetto di prossimi articoli, analizzia¬ 
mo come i singoli blocchi descritti sono interconnessi fra loro. 
La fig. 2 che è una tipica architettura di un sistema a micro- 
processori mostra più in dettaglio la relazione fra le parti, e 
precisamente: 

1) MICROPROCESSORE (MP) cuore di tutto il sistema 

2) MEMORIA suddivisa in: 

a) ROM (READ ONLY MEMORY) (Memoria a sola lettu¬ 
ra - tipo particolare di memoria dove vengono immagazzi- 



Fig. 1 - Diagramma a blocchi delle parti principali 
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Fig.2 - Schema a blocchi di un sistema a microprocessori 


nate delle informazioni in modo permanente - p.e. il sistema 
operativo che consente il funzionamento dell’accensione del¬ 
la macchina) 

b) RAM (RANDOM ACCESS MEMORY) (Memoria di let¬ 
tura e scrittura). Area di lavoro temporanea poiché il conte¬ 
nuto allo spengimento del sistema andrà perso. 

3) Circuiti di Input/Output (ingresso/uscita) programmabili 
ovvero dei chips per interfacciare dispositivi esterni. 

4) PERIFERICHE come la stampante, etc. 

5) BUS di YO 

6) CLOCK. Temporizzazione del sistema. 

7) ALIMENTAZIONE del SISTEMA 

8) BUS DATI insieme di 8 linee sulle quali si muovono le 
informazioni da e verso il microprocessore. 

9) BUS INDIRIZZI per specificare dove questi dati devo¬ 
no andare o da dove essi devono essere prelevati. 

10) BUS CONTROLLO specifica che tipo di operazione 
va eseguita (p.e. se è un’operazione di lettura o scrittura in 
memoria). 

Non perdete di vista il prossimo numero, ini¬ 
zieremo a parlare di microprocessore. 
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INTELLIGENTI 

PER 



ABBONARTI 


Sempre e subito a casa tua 

Riceverai gratuitamente il CATALOGO 
semestrale dei prodotti LIST 

La tua iscrizione al LIST CLUB è già pa¬ 
gata per metà 

Il tuo numero di identificazione quale ab¬ 
bonato sarà sempre inserito di diritto nei 
concorsi (con fantastici premi) proposti 

nel corso dell’anno. 
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